WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > 現在接続している無線 LAN アクセスポイントのネットワーク名 (SSID) を取得する |
現在接続している無線 LAN アクセスポイントのネットワーク名 (SSID) を取得する: MSNdis_80211_ServiceSetIdentifier - WMI Sample (VB)Topics
現在接続している無線 LAN アクセスポイントの名前であるネットワーク名 (SSID) を取得するサンプルプログラムです。
Sample Code
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
![]() Comment
実行すると現在接続している無線 LAN アクセスポイントのネットワーク名 (SSID) を表示します。WQL を見ての通り無線 LAN カードの名前を決め打ちにしているのでPC環境に合った名前に変更する必要があります。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |