Dim scanCounter, fso, scanResults, fileCounter, folderName 
Set objFSO = CreateObject("Scripting.FileSystemObject")
	

Set folder = objFSO.GetFolder("\\vmware-host\Shared Folders\Documents\scans\stateScans\")
Set files = folder.Files
For each folderIdx in files
	fileCounter = fileCounter +1
Next

Set scanResults = objFSO.CreateTextFile("\\vmware-host\Shared Folders\Documents\scans\stateScans\scan"&fileCounter&".txt")

Sub OnScanStart
	scanCounter = scanCounter + 1
End Sub


Sub OnScanResult(SSID, BSSID, CapFlags, Signal, Noise, LastSeen)
	scanResults.WriteLine(BSSID & "|" &  Signal)	
End Sub


Sub OnScanComplete(FoundNew, SeenBefore, LostContact, BestSNR)
	scanResults.WriteLine(" ")
	scanResults.WriteLine("#Scan["&scanCounter&"]")	
End Sub