現在接続している無線 LAN アクセスポイントのネットワーク名 (SSID) を取得する: MSNdis_80211_ServiceSetIdentifier - WMI Sample (VB)

Private Sub Command1_Click()

Dim SsidSet As SWbemObjectSet
Dim Ssid As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim bSsidSet As Variant
Dim sSsid As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\WMI")

Set SsidSet = Service.ExecQuery("Select * From MSNdis_80211_ServiceSetIdentifier " _
& "Where InstanceName = 'BUFFALO WLI2-CF-S11 Wireless LAN Adapter'")

For Each Ssid In SsidSet

For Each bSsidSet In Ssid.Ndis80211SsId
If (bSsidSet >= 32 And bSsidSet <= 128) Then
sSsid = sSsid & Chr$(bSsidSet)
End If
Next

Next

MsgBox "現在接続している無線 LAN のネットワーク名 (SSID) です。" & _
vbCrLf & sSsid & vbCrLf & "ですよ。"

Set SsidSet = Nothing
Set Ssid = Nothing
Set bSsidSet = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub