This is an HTML application that allows you to monitor the CPU Usage (as seen in task manager) for any one task either on the local computer or a remote computer using vbscript. It then alerts you when that process has gone idle. I put it together this morning because I was tired of starting a program on remote computer, and continuously reconnect to see if the job was finished. This code could easily be modified into a full fledged “Task Manager” for a remote computer..in fact..i think I might just do that. I will, and I will make a step by step article for it. Because I’m bored.
(You need a username and password for the remote computer)
(copy this code into a blank text document and save it with the extension ".hta")
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-
<html>
-
<head>
-
<title>Teh Waiter</title>
-
<HTA:APPLICATION id="prjIS" MINIMIZEBUTTON="yes" MAXIMIZEBUTTON="no" INNERBORDER="yes" BORDER="thin" SINGLEINSTANCE="yes" APPLICATIONNAME="Waiting Script">
-
<SCRIPT language="VBScript">
-
<!--
-
-
Sub Window_onLoad
-
-
Dim objWMISer, objItem
-
Dim colItems
-
Dim intLeft, intTop
-
-
Set objWMISer = GetObject("winmgmts:\\.\root\cimv2")
-
Set colItems = objWMISer.ExecQuery("Select * From Win32_DesktopMonitor")
-
-
'Set Window Size
-
For Each objItem in colItems
-
intWidth = objItem.ScreenWidth
-
intHeight = objItem.ScreenHeight
-
Exit For
-
Next
-
-
intLeft = (intWidth - 385) / 2
-
intTop = (intHeight - 230) / 2
-
window.resizeTo 385,230
-
window.MoveTo intLeft, intTop
-
End Sub
-
-
-
Function IsValidIp(sIpAddress)'Well..is it?
-
-
Dim aTmp
-
IsValidIp = False
-
aTmp = split(sIpAddress,".")
-
-
If UBound(aTmp) <> 3 Then Exit Function
-
For Each field In aTmp
-
If field > 255 Then Exit Function
-
Next
-
IsValidIp = True
-
-
End Function
-
-
-
'This was complicated..
-
'Sets cursor to end of text when focus is gained
-
Sub txtIP_OnFocus
-
Set it = document.Selection.CreateRange()
-
it.moveStart "Character", 15
-
it.select
-
-
End Sub
-
-
Dim sObjectPath, strIPAddress, strUser, strPass, strName
-
Dim blnIdle, blnIsDone, blnFocus
-
Dim intWait, intTime
-
Dim wmi_service, perf_instance1
-
Dim N1, N2, D1, D2
-
Dim TimerID, TimerWork
-
-
Sub btnDoIt_OnClick
-
document.getElementById("btnDoIt").disabled = "disabled"
-
-
strIPAddress = document.getElementById("txtIP").value
-
strUser = "remoteuser"
-
strPass = "secretpassword"
-
strName = document.getElementById("txtName").value
-
intTime = CInt(document.getElementById("txtTime").value)
-
-
blnIsDone = false
-
blnIdle = false
-
-
intWait = 0
-
-
If trim(strName) = "" Then
-
msgbox "Enter a process to wait for!"
-
document.getElementById("btnDoIt").disabled = ""
-
Exit Sub
-
End If
-
-
sObjectPath = "Win32_PerfRawData_PerfProc_Process.Name=" & chr(34) & strName & chr(34)
-
-
If strIPAddress = "." Then
-
Set wmi_service = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
-
Else
-
If IsValidIp(strIPAddress) Then
-
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
-
Set wmi_service = objSWbemLocator.ConnectServer(strIPAddress, "root\cimv2", strUser, strPass)
-
Else
-
msgbox "Invalid Ip Address"
-
document.getElementById("btnDoIt").disabled = ""
-
Exit Sub
-
End If
-
End If
-
-
Set perf_instance1 = wmi_service.get( sObjectPath )
-
-
N1 = perf_instance1.PercentProcessorTime
-
D1 = perf_instance1.TimeStamp_Sys100NS
-
-
TimerID = window.setInterval("TehLoop", 1000)
-
TimerWork = window.setInterval("StillWorking", 400)
-
-
If strIPAddress <> "." Then
-
document.getElementById("divTitle").innerText = "Waiting for " & strName & " on " & strIPAddress
-
Else
-
document.getElementById("divTitle").innerText = "Waiting for " & strName
-
End If
-
-
document.getElementById("divMain").style.display = "none"
-
document.getElementById("divStatus").style.display = ""
-
document.title = "Waiting.."
-
End Sub
-
-
Sub TehLoop
-
Dim perf_instance2
-
-
Set perf_instance2 = wmi_service.get( sObjectPath )
-
N2 = perf_instance2.PercentProcessorTime
-
D2 = perf_instance2.TimeStamp_Sys100NS
-
-
'Found This formula somewhere on the interwebs
-
' CounterType - PERF_100NSEC_TIMER
-
' Formula = ((N2 - N1) / (D2 - D1)) x 100
-
-
If ( 0 = (D2-D1) ) Then
-
msgbox "process " & strName & " was not found"
-
blnIsDone = true
-
Else
-
PercentProcessorTime = ((N2 - N1) / (D2 - D1)) * 100
-
-
document.getElementById("divUsage").innerText = "Usage: " & PercentProcessorTime
-
-
If PercentProcessorTime = 0 Then
-
intWait = intWait + 1
-
Progress
-
If intWait >= intTime Then
-
blnIsDone = true
-
blnIdle = true
-
End If
-
Else
-
Progress
-
intWait = 0
-
End If
-
-
End If
-
-
N1 = N2
-
D1 = D2
-
-
If blnIsDone Then
-
btnCancel_OnClick
-
End If
-
End Sub
-
-
Sub Progress
-
document.getElementById("divIdle").innerText = "Idle Seconds: " & intWait & " of " & intTime
-
-
If blnFocus Then
-
document.title = "Waiting.."
-
Else
-
document.title = strName & " - " & intWait & " of " & intTime & " seconds"
-
End If
-
-
End Sub
-
-
Sub StillWorking
-
-
Set div = document.getElementById("divWait")
-
-
If div.innerText <> "Waiting...." Then
-
div.innerText = div.innerText & "."
-
Else
-
div.innerText = "Waiting."
-
End If
-
-
End Sub
-
-
Sub btnCancel_OnClick
-
Set wmi_service = nothing
-
-
If blnIdle Then
-
document.title = strName & " is idle"
-
Set objWC = window.document.getElementById("sndWC")
-
If Not objWC Is Nothing Then
-
objWC.src = "WorkCom.wav"
-
End If
-
-
msgbox strName & " is idle"
-
End If
-
-
window.clearInterval(TimerID)
-
window.clearInterval(TimerWork)
-
document.getElementById("btnDoIt").disabled = ""
-
-
document.getElementById("divMain").style.display = ""
-
document.getElementById("divStatus").style.display = "none"
-
document.title = "Teh Waiter"
-
End Sub
-
-
Sub FocusOut
-
blnFocus = False
-
End Sub
-
-
Sub FocusIn
-
blnFocus = True
-
End Sub
-
-->
-
</SCRIPT>
-
</head>
-
<body onfocusin="FocusIn" onfocusout="FocusOut" bgcolor="black">
-
<form id="frmExecute">
-
<center><font face="Comic Sans MS" color="blue">
-
<bgsound src="" id="sndWC" />
-
<div id="divMain">
-
IP Address ("." for local):
-
<br>
-
<INPUT id="txtIP" tabIndex="1" type="text" maxLength="15" size="13" value="." name="txtIP" />
-
<br>
-
Process name (exp. "explorer"):
-
<br>
-
<INPUT id="txtName" tabIndex="2" type="text" size="13" value="explorer" name="txtName" />
-
<br>
-
Idle Time in seconds:
-
<br>
-
<INPUT id="txtTime" tabIndex="3" type="text" size="13" value="4" name="txtTime" />
-
<br>
-
<INPUT id="btnDoIt" tabIndex="4" type="button" value="Start" name="btnDoIt" />
-
<br>
-
</div>
-
-
<div id="divStatus" style="display: none">
-
<INPUT id="btnCancel" tabIndex="4" type="button" value="Stop" name="btnCancel" />
-
<br><br>
-
<div id="divTitle"></div>
-
<div id="divUsage">Usage: </div>
-
<div id="divIdle">Idle Seconds: </div>
-
<div id="divWait" style="color: red">Waiting...</div>
-
</div>
-
</font></center>
-
</form>
-
</body>
-
</html>
