透過Windows Script Host，在遠端電腦上執行命令，方便網管人員管理用戶端。
請將程式碼存成 .hta 檔案，點擊兩下即可執行
1.您必須有管理者權限
2.遠端電腦必須要能接受管理(防火牆、網域...)
3.介面很簡陋，請包涵...好想休假呀

<meta http-equiv="content-type" content="text/html; charset=big5" />
<title>Remote Execute Command</title>

<HTA:APPLICATION 
     ID="objHTAHelpomatic"
     APPLICATIONNAME="HTAManagementAccount"
     SCROLL="No"
     SINGLEINSTANCE="yes"
	 BORDER="thick"
	 BORDERSTYLE="raised"
	 MAXIMIZEBUTTON="no"
	 SHOWINTASKBAR="yes"
     WINDOWSTATE="normal"
>



<SCRIPT Language="VBScript">
' Setup Window Size
Sub Window_onLoad
	Const Width = 500
	Const Height = 250
	
	self.ResizeTo width,height
	Self.moveTo (screen.AvailWidth-width)/2,(screen.AvailHeight-height)/2
End Sub

' Execute Command by Shell
Sub ExecuteCmd
	strComputer = HostName.Value
	strCmd = Command.Value
	strArg = "cmd.exe /c " + strCmd
	Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
	errReturn = objWMIService.Create (strArg , Null, Null, intProcessID)
	msgbox("Finish ! " & strComputer )
        set objWMIService = Nothing
End Sub
</SCRIPT>


請選擇您的指令<br>
<select name="Command">
  <option value="defrag c: /v">Defrag System Driver</option>
  <option value="gpupdate /force">Force Update Group Policy</option>
  <option value="shutdown -s -t 0">Shutdown PC (Windows XP)</option>
  <option value="shutdown -r -t 0">Reboot PC (Windows XP)</option>
  <option value="shutdown /s /t 0">Shutdown PC (Windows Server 2003)</option>
  <option value="shutdown /r /t 0">Reboot PC (Windows Server 2003)</option>
  <option value="del c:\thumbs.db /s /a">Clear Thumbs.db Files in Driver C</option>
  <option value="del d:\thumbs.db /s /a">Clear Thumbs.db Files in Driver D</option>
</select>
<br>
<br>
您要在哪台電腦上執行指令?<br>
Host Name：<input type="text" name="HostName" size="30"><br>
<input id=runbutton  class="button" type="button" value="Execute" name="run_button"  onClick="ExecuteCmd"><br>
<br>
<ul>
<li>如果您輸入的電腦無法接受管理(例如：防火牆阻擋)，將會發生錯誤訊息</li>
</ul>