Set fso = CreateObject("Scripting.FileSystemObject")

sPath = StrReverse(WSCript.ScriptFullName)

sPath = Right(sPath, Len(sPath) - (InStr(sPath, "\")-1))

sPath = StrReverse(sPath)   

Set f = fso.OpenTextFile(StrPath & sLogFile, ForWriting, True)

f.WriteLine s

 

'wscript.echo s

 

set oInstance=Nothing

set oResults=Nothing

set oSvc=Nothing

set wshNEt=Nothing

set oLocator=Nothing

set MyGoodMsg=Nothing

set MyInput=Nothing

 

wscript.quit