Ok...If you saw my previous posting you know I could not get NetStumbler to talk to VB6.0, so thought Id better FIRST be sure I could get it to talk to VB Script. So I tried:
---------------------------------------------------
'---- My Test Script with NetStumbler ---
Dim cnt:cnt=0
Dim ExitNow:ExitNow=False
WScript.Echo "Start"
'----
'Dim STUM: set STUM= Wscript.GetObject_("NetStumbler.exe","EV")
DIM TTS: Set TTS=createobject("sapi.Spvoice")
'----
TTS.Priority=2
TTS.Speak "START!!"
TTS.Speak "GO GO"
Do
cnt=cnt+1
if cnt>5000000 then
TTS.Speak "Still Running"
cnt=0
' WScript.Echo "TimeOut. Quit"
' ExitNow=True
end if
Loop Until ExitNow
on error resume next
WScript.Echo "Error Exit"
'--------- Events ---------------
Sub OnScanResult (SSID,BSSID,capFlags,Signal,LastSceen)
WScript.Echo "A Scan Completed"
TTS.Speak "Got Event!"
end sub
------------------------------------
This never gets an 'OnScanResult' Event So Ive obviously left something out.
I could not figure how to bind the NetStumbler.exe runninmg on my computer to this script. I dont know the progID I guess.
----
From above you can see I tried;
Dim STUM: set STUM= Wscript.GetObject_("NetStumbler.exe","EV")
But that did not compile, I would guess cause "NetStumbler.exe" was the wrong progID?
----
I looked thru the ns04Master.vbs script provided, but could not see in there where this binding was carrierd out.
Can someone streighten me out on this?
Thanks,
John