Проблема с портированием VBScript с WinXP на Win7

Question

В прилагаемом VBScript отображаются все доступные сети WiFi.
Он отлично работает на WinXP, но не работает на Win7. На WinXP он показывает список всех доступных сетей WiFi, однако на WIn7 он показывает пустой список. В чем проблема?

on error resume next 
set objSWbemServices = GetObject("winmgmts:\\.\root\wmi") 
set colInstances = objSwbemServices.ExecQuery("SELECT * FROM MSNDis_80211_BSSIList") 
for each obj in colInstances 
    if left(obj.InstanceName, 4) <> "WAN " and right(obj.InstanceName, 8)     <> "Miniport" then 
        for each rawssid in obj.Ndis80211BSSIList 
            ssid = "" 
            for i=0 to ubound(rawssid.Ndis80211SSid) 
                decval = rawssid.Ndis80211Ssid(i) 
                if (decval > 31 AND decval < 127) then 
                    ssid = ssid & Chr(decval) 
                end if 
            next 
            wscript.echo ssid 
        next 
    end if 
next

Я новичок в VBScript, поэтому, пожалуйста, будьте осторожны.

Answer 1

[Я бы прокомментировал, но не достаточно респ: P] Visual Studio позволит вам отлаживать VBScript, чтобы вы могли определить, какая строка в частности вызывает проблему.

Перейдите в каталог, в котором находится скрипт, затем запустите 'wscript .vbs // D // X' и выберите Visual Studio в качестве отладчика. Затем вы можете пройти через каждую строку и получить представление о том, что происходит ( source ).

Когда я выполняю этот скрипт (как с обычными, так и с повышенными привилегиями), я получаю пустой массив из запроса «SELECT * FROM MSNDis_80211_BSSIList». Это может быть, где проблема вытекает; возможно, источник (MSNDis_80211_BSSIList) устарел и переименован в Windows 7.

Google также выявил возможную корреляцию между последним набором драйверов (например, драйверами Intel Wifi), которые могут содержать дополнения WMI.