現在接続している無線LANアクセスポイントのネットワーク名(SSID)を取得する: MSNdis_80211_ServiceSetIdentifier
■Topics
現在接続している無線LANアクセスポイントの名前であるネットワーク名(SSID)を取得するサンプルです。名前空間は「Root\WMI」、クラスが「MSNdis_80211_ServiceSetIdentifier」になります。
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 Locator = Nothing
Set Service = Nothing
End Sub
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 Locator = Nothing
Set Service = Nothing
End Sub
実行すると現在接続している無線LANアクセスポイントのネットワーク名(SSID)を表示します。WQLを見ての通り無線LANカードの名前を決め打ちにしているのでPC環境に合った名前に変更する必要があります。
実際のネットワーク名(SSID)もASCコードでごみがついた??状態で帰ってくるため存在するアルファベットのASCコードのみ取得しています。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。