Show logging for a vbs script - vbscript

Question

I have a script i use for uninstalling an application
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product " _
& "Where Name = 'Personnel database'")
For Each objSoftware in colSoftware
Wscript.Echo "Name: " & objSoftware.Name
Wscript.Echo "Version: " & objSoftware.Version
objSoftware.Uninstall()
Next
The problem is i don't know if the
Has started running or has completed
uninstall has completed
Has completed
Is there a way to show this in a log file or a console.
Thanks

Answer 1

Uninstall has completed when Uninstall returns with return code 0. Having your script log something is entirely up to you, though. You could write stuff to a log file or the eventlog, show a MsgBox or write text to the console (when running with cscript.exe).
A while ago I wrote this to simplify the handling (if you'll forgive the shameless plug). You could use it like this:
'insert class code here
Set clog = New CLogger
clog.LogToConsole = False
clog.LogFile = "C:\path\to\your.log"
clog.IncludeTimestamp = True
clog.Log "Starting"
'...
For Each objSoftware in colSoftware
clog.Log "Uninstalling " & objSoftware.Name & " (v" & objSoftware.Version & ")"
rc = objSoftware.Uninstall()
If rc = 0 Then
clog.Log "Uninstall complete"
Else
clog.LogError "An error occurred: " & rc
End If
Next
clog.Log "Finished"

Answer 2

You could always put msgbox in your script in your for each loop
MsgBox("Uninstalling " + objSoftware.Name)
or you could do a simple in your for each loop
Wscript.Echo "Uninstalling " + objSoftware.Name
Just run your vbs from admin command prompt window open
wscript uninstallfile.vbs
This will show up in your command console.