使用脚本开启客户端远程桌面

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