strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set objProcess = objWMIService.ExecQuery _
("Select * From Win32_PerfFormattedData_PerfProc_Process where Name='EPDServer.exe*32'")
Set colItems = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_PerfProc_Process").objectSet
objRefresher.Refresh
For Each objItem In objProcess
If LCase(objItem.Name) = "hs5" Then
Wscript.Sleep 500
While objItem.PercentProcessorTime <> 0
Wscript.Sleep 500
objRefresher.Refresh
WEnd
End If
Next
*for getting Updates / if you are liking the posts and if this is useful Please follow the blog*
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set objProcess = objWMIService.ExecQuery _
("Select * From Win32_PerfFormattedData_PerfProc_Process where Name='EPDServer.exe*32'")
Set colItems = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_PerfProc_Process").objectSet
objRefresher.Refresh
For Each objItem In objProcess
If LCase(objItem.Name) = "hs5" Then
Wscript.Sleep 500
While objItem.PercentProcessorTime <> 0
Wscript.Sleep 500
objRefresher.Refresh
WEnd
End If
Next
*for getting Updates / if you are liking the posts and if this is useful Please follow the blog*
Comments
Post a Comment