Thread: Getting stats from wireless card

Here is a little bit of VB.NET code I wrote a while ago to list the available SSID's. This only worked once Windows Wireless Config had picked up the list of networks though, so not sure how much help it will be.

Code:

Imports System.Management
Imports System.Text
Imports System.IO


Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents lblHomeNetwork As System.Windows.Forms.Label
    Friend WithEvents lblAvailable As System.Windows.Forms.Label
    Friend WithEvents btnSearch As System.Windows.Forms.Button
    Friend WithEvents lstAvailable As System.Windows.Forms.ListBox
    Friend WithEvents txtHome As System.Windows.Forms.TextBox
    Friend WithEvents statusBar As System.Windows.Forms.StatusBar
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.lstAvailable = New System.Windows.Forms.ListBox
        Me.txtHome = New System.Windows.Forms.TextBox
        Me.lblHomeNetwork = New System.Windows.Forms.Label
        Me.lblAvailable = New System.Windows.Forms.Label
        Me.btnSearch = New System.Windows.Forms.Button
        Me.statusBar = New System.Windows.Forms.StatusBar
        Me.SuspendLayout()
        '
        'lstAvailable
        '
        Me.lstAvailable.ItemHeight = 16
        Me.lstAvailable.Location = New System.Drawing.Point(12, 88)
        Me.lstAvailable.Name = "lstAvailable"
        Me.lstAvailable.Size = New System.Drawing.Size(219, 100)
        Me.lstAvailable.TabIndex = 0
        '
        'txtHome
        '
        Me.txtHome.Location = New System.Drawing.Point(12, 40)
        Me.txtHome.Name = "txtHome"
        Me.txtHome.Size = New System.Drawing.Size(219, 22)
        Me.txtHome.TabIndex = 1
        Me.txtHome.Text = ""
        '
        'lblHomeNetwork
        '
        Me.lblHomeNetwork.Location = New System.Drawing.Point(12, 19)
        Me.lblHomeNetwork.Name = "lblHomeNetwork"
        Me.lblHomeNetwork.Size = New System.Drawing.Size(219, 19)
        Me.lblHomeNetwork.TabIndex = 2
        Me.lblHomeNetwork.Text = "Home Network:"
        '
        'lblAvailable
        '
        Me.lblAvailable.Location = New System.Drawing.Point(12, 68)
        Me.lblAvailable.Name = "lblAvailable"
        Me.lblAvailable.Size = New System.Drawing.Size(219, 19)
        Me.lblAvailable.TabIndex = 3
        Me.lblAvailable.Text = "Available Networks:"
        '
        'btnSearch
        '
        Me.btnSearch.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.btnSearch.Location = New System.Drawing.Point(68, 196)
        Me.btnSearch.Name = "btnSearch"
        Me.btnSearch.Size = New System.Drawing.Size(107, 31)
        Me.btnSearch.TabIndex = 4
        Me.btnSearch.Text = "Search"
        '
        'statusBar
        '
        Me.statusBar.Location = New System.Drawing.Point(0, 244)
        Me.statusBar.Name = "statusBar"
        Me.statusBar.Size = New System.Drawing.Size(245, 22)
        Me.statusBar.TabIndex = 5
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
        Me.ClientSize = New System.Drawing.Size(245, 266)
        Me.Controls.Add(Me.statusBar)
        Me.Controls.Add(Me.btnSearch)
        Me.Controls.Add(Me.lblAvailable)
        Me.Controls.Add(Me.lblHomeNetwork)
        Me.Controls.Add(Me.txtHome)
        Me.Controls.Add(Me.lstAvailable)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
        Me.Text = "WirelessMan"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim bFoundNetworks As Boolean = False

    Private Sub SearchNetworks()
        lstAvailable.Items.Clear()
        lstAvailable.Items.Add("Searching...")

        Try
            Dim query As String = "SELECT * FROM MSNDis_80211_BSSIList WHERE Active='True'"
            Dim searcher As ManagementObjectSearcher = _
                 New ManagementObjectSearcher("root/WMI", query)
            Dim moc As ManagementObjectCollection = searcher.Get()

            Dim moe As ManagementObjectCollection.ManagementObjectEnumerator = moc.GetEnumerator()
            moe.MoveNext()
            Dim objarr() As ManagementBaseObject = CType(moe.Current.Properties("Ndis80211BSSIList").Value, ManagementBaseObject())

            lstAvailable.Items.Clear()
            For Each obj As ManagementBaseObject In objarr
                bFoundNetworks = True
                Dim ssid() As Char = Encoding.ASCII.GetChars(CType(obj("Ndis80211Ssid"), Byte()))
                lstAvailable.Items.Add(New String(ssid))
            Next
            If lstAvailable.Items.Count = 0 Then
                lstAvailable.Items.Add("No networks found!")
            End If
        Catch ex As ManagementException
            ' Wireless device disabled
            lstAvailable.Items.Clear()
            lstAvailable.Items.Add("Wireless device disabled!")
        Catch ex As System.NullReferenceException
            ' Windows hasnt searched for wireless networks yet
            bFoundNetworks = False
            lstAvailable.Items.Add("Windows must search...")
        End Try

    End Sub

    Private Sub CheckShare(ByVal strPath As String)

        'Inherits System.IO.FileSystemInfo

        Dim mobjFileInfo As FileInfo
        Dim mobjDirectoryInfo As DirectoryInfo
        Dim mblnIsDirectory As Boolean = True
        Try
            mobjDirectoryInfo = New DirectoryInfo(strPath)

        Catch ex As Exception
            Console.WriteLine(ex.ToString())
        End Try

        If mobjDirectoryInfo.Exists Then
            MsgBox("share exists!")
        Else
            MsgBox("share doesnt exist!")
        End If



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtHome.Text = "Please select a network..."
        'SearchNetworks()
        CheckShare("c:\Mp3")
        CheckShare("\\Terabyte\200gb (c)\MP3")
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        SearchNetworks()
    End Sub

    Private Sub lstAvailable_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstAvailable.SelectedIndexChanged
        If (bFoundNetworks) Then
            txtHome.Text = lstAvailable.Items.Item(lstAvailable.SelectedIndex)
        End If
    End Sub
End Class