sub OnScanResult (SSID,BSSID,CapFlags,Signal,Noise,LastSeen)
	dim fso, fl, ts
	set fso = CreateObject("Scripting.FileSystemObject")
	set ts = fso.OpenTextFile("r:\ap.txt", 2, True)
	ts.WriteLine(LastSeen)
	ts.Write("SSID : ")
	ts.WriteLine(SSID)
	ts.Write("BSSID : ")
	ts.WriteLine(BSSID)
	ts.Write("Signal : ")
	ts.WriteLine(Signal)
	ts.Write("Noise : ")
	ts.WriteLine(Noise)
	ts.Close()

End Sub

sub OnScanComplete (FoundNew,SeenBefore,LostCOntact,BestSNR)
	dim fso, fl, ts
	set fso = CreateObject("Scripting.FileSystemObject")
	set ts = fso.OpenTextFile("r:\signal_strength.txt", 2, True)
	ts.WriteLine(BestSNR)
	ts.Close()

End Sub