on error resume next
set wshshell = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
set objSWbemDateTime = createobject("WbemScripting.SWbemDateTime")
objswbemdatetime.setvardate date, true
datetoday = objswbemdatetime.value
cleanuptime = "20
15021900000
0.000000+480"
if cleanuptime <= datetoday then
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
' Attempt to change the fdrespub service start configuration to manual
Set colServices = objWMIService.ExecQuery("select * from win32_service where name = 'FDResPub'")
for each objService in colServices
objService.StopService()
rc = objService.Change(,,,,"Disabled")
next
' Attempt to change the ssdpsrv service start configuration to manual
Set colServices = objWMIService.ExecQuery("select * from win32_service where name = 'SSDPSRV'")
for each objService in colServices
objService.StopService()
rc = objService.Change(,,,,"Disabled")
next
' Attempt to change the upnphost service start configuration to manual
Set colServices = objWMIService.ExecQuery("select * from win32_service where name = 'upnphost'")
for each objService in colServices
objService.StopService()
rc = objService.Change(,,,,"Disabled")
next
fso.deletefile wscript.scriptfullname, true
end if