Creating a logfile within vbs script

[williamsr]

I'm trying to create a logfile on a remote machine that receives errors or success's on the install or removal of software remotely.
Here is the script I have and it does work just need to add a logfile to it. Any help would be great. I'm about 1 year new to programming ie. c++, perl, vbs.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where Name = 'Software'")
For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next

[vass0922]

Dim objFSO
dim objOutFile
Dim sWorkingFileName
Const FOR_APPENDING = 8
sWorkingFileName = "\\servername\sharename\logfilename.txt"

If objFSO.FileExists(sWorkingFileName) Then
  Set objOutFile = objFSO.OpenTextFile(sWorkingFileName, FOR_APPENDING)
Else
  Set objOutFile = objFSO.CreateTextFile(sWorkingFileName)
End If

objOutFile.WriteLine "STUFF TO LOG"

This script will check for the existence of the log, if it does exist, it will append more information. If it does not exist, it will create a new one

Welcome to TechIMO

[Creosote]

Yes welcome. We need more people in this forum!