All Dim's at top of script
StartMenu = WshShell.SpecialFolders("StartMenu")
Tried both methods and they both fail.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService. ExecQuery("Select * From Win32_Directory Where Name ='" & StartMenu & "\\Programs\\Time'")
For Each objFolder in colFolders
errResults = objFolder.Delete
Next
and
Delete_Time = StartMenu & "\Programs\Time"
wscript.echo Delete_Time
If objfso.FolderExists(Delete_Time) Then
objfso.DeleteFolder Delete_Time
End If
StartMenu = WshShell.SpecialFolders("StartMenu")
Tried both methods and they both fail.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService. ExecQuery("Select * From Win32_Directory Where Name ='" & StartMenu & "\\Programs\\Time'")
For Each objFolder in colFolders
errResults = objFolder.Delete
Next
and
Delete_Time = StartMenu & "\Programs\Time"
wscript.echo Delete_Time
If objfso.FolderExists(Delete_Time) Then
objfso.DeleteFolder Delete_Time
End If