Try this, it works for me. Anyone want to try with Vista? It would be useful to get some feedback.


Break ON

$sKey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WZCSVC\Parameters\Interfaces"
$iIdx1=0
$sInt=EnumKey($sKey,$iIdx1)
While Not @ERROR
        $iIdx2=0
        $sNet=EnumValue($sKey+"\"+$sInt,$iIdx2)
        While Not @ERROR
                If InStr($sNet,"Static#")=1
                        $sSSIDRaw=ReadValue($sKey+"\"+$sInt,$sNet)
                        $iSSIDLen=Execute("Exit &"+SubStr($sSSIDRaw,33,2))
                        $sSSID=""
                        $sSSIDRaw=SubStr($sSSIDRaw,41)
                        While $iSSIDLen
                                $sSSID=$sSSID+Chr(Execute("Exit &"+Left($sSSIDRaw,2)))
                                $sSSIDRaw=SubStr($sSSIDRaw,3)
                                $iSSIDLen=$iSSIDLen-1
                        Loop
                        "Interface: "+$sInt+", Network: "+$sNet+", SSID: "+$sSSID+@CRLF
                EndIf
                $iIdx2=$iIdx2+1
                $sNet=EnumValue($sKey+"\"+$sInt,$iIdx2)
        Loop
        $iIdx1=$iIdx1+1
        $sInt=EnumKey($sKey,$iIdx1)
Loop