Opened by Strat at 2005-08-03 13:06
User since
2004-09-06
458 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-09-06
458 Artikel
BenutzerIn
Hi Jungs :D ,
ich habe da was gefunden weiß aber nicht ob ich das auch für Perl benutzten kann.
Sieht aus wie VB6
JUCHU! Ich hab nen VB Code der mir das liefert was ich will.
Jetzt muss ich nur noch versuchen das passende in Perl hinzubekommen...
GOIL!
\n\n
<!--EDIT|zipster|1123661637-->
ich habe da was gefunden weiß aber nicht ob ich das auch für Perl benutzten kann.
Sieht aus wie VB6
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function SSID()
On error resume Next
Call GetWMI(objMSNdis_80211_ServiceSetIdentifierSet, "Select * from MSNdis_80211_ServiceSetIdentifier Where active=true")
For Each objMSNdis_80211_ServiceSetIdentifier in objMSNdis_80211_ServiceSetIdentifierSet
ID = ""
For i = 0 to objMSNdis_80211_ServiceSetIdentifier.Ndis80211SsId(0)
ID = ID & chr(objMSNdis_80211_ServiceSetIdentifier.Ndis80211SsId(i + 4))
Next
SSID = ID
Next
End Function
JUCHU! Ich hab nen VB Code der mir das liefert was ich will.
Jetzt muss ich nur noch versuchen das passende in Perl hinzubekommen...
GOIL!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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<!--EDIT|zipster|1123661637-->
