1. On Error Resume Next  
2. '检查Terminal Services服务  
3. strComputer = "." 
4. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
5. Set colRunningServices = objWMIService.ExecQuery ("Select * from Win32_Service where Name='TermService'")  
6. For Each objService in colRunningServices  
7.     If not objService.StartMode = "Manual" Then  
8.     objService.ChangeStartMode("Manual")  
9.         If objService.State = "Stopped" Then  
10.         objService.StartService()          
11.         End If  
12.     End If  
13. Next  
14. '打开远程桌面  
15. Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
16. Set colItems = objWMIService.ExecQuery("Select * from Win32_TerminalServiceSetting")  
17. For Each objItem in colItems  
18. errResult = objItem.SetAllowTSConnections(1)  'Enable  
19. Next  
20. '添加3389到防火墙例外  
21. set oShell  = WScript.CreateObject("WScript.shell")   
22. oShell.run "cmd.exe /c netsh firewall add portopening tcp 3389 RemoteDestop",0,true  
23. set oShell=nothing 

 本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/390334，如需转载请自行联系原作者