Ba galera bom dia.
Como resolver o Error: Unparsable query, Code: 80041058, Source: SWbenServicesEx, na linha Set objEventSource = objWMIService.ExecNotificationQuery(strWQL), do script abaixo ??
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
strWQL = "SELECT * " & _
"FROM __InstanceModificationEvent " & _
"WITHIN 2 " &_
"WHERE TargetInstance DNSCACHE 'Win32_Service' " & _
"AND TargetInstance.Name = 'DNSCACHE" & _
"AND TargetInstance.State = 'Stopped'"
Set objEventSource = objWMIService.ExecNotificationQuery(strWQL)
WScript.Echo "Monitorando o serviço DNS !!!"
Set objEventObject = objEventSource.NextEvent()
WScript.Echo "O serviço DNS acabou de ser interrompido....aguarde alguns segundos."
WScript.Sleep(5000)
WScript.Echo "Tentando reiniciar o serviço da web usando a ferramenta net.exe."
Set objShell = CreateObject("WScript.Shell")
objShell.Run "%COMSPEC% /c net start DNSCACHE",,1
WScript.Echo "Serviço DNS reiniciado"
Abraço tche.
