一个测试用的VBS脚本样例

Const KENTER="{ENTER}"
Const KALTF4="%{F4}"
Const KUP="{UP}"
Const KDOWN="{DOWN}"
Const KLEFT="{LEFT}"
Const KRIGHT="{RIGHT}"
Const ONE_SECOND=1000

Dim WaitCount

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "FreeView"
WScript.Sleep ONE_SECOND*10
'WshShell.SendKeys("rootroot")
'WScript.Sleep 1000
While True
While WshShell.AppActivate("虚拟桌面")=False
WScript.Sleep ONE_SECOND/10
Wend
SendKey(KENTER)
'MsgBox "登录开始。"

While WshShell.AppActivate("桌面列表")=False
WScript.Sleep ONE_SECOND/10
Wend

'MsgBox "进入桌面列表。"
WScript.Sleep ONE_SECOND
SendKey(KDOWN)
SendKey(KDOWN)
WScript.Sleep ONE_SECOND/10
SendKey(KDOWN)
WScript.Sleep ONE_SECOND/10
SendKey(KDOWN)
WScript.Sleep ONE_SECOND/10
SendKey(KDOWN)
WScript.Sleep ONE_SECOND/10
SendKey(KDOWN)

'MsgBox "开始连接桌面。"
WScript.Sleep ONE_SECOND/10
SendKey(KENTER)
WaitCount = 0
Do
WScript.Sleep ONE_SECOND/2
WaitCount += 1
If WaitCount > 600 Then '超过300s没有连接上，再次发送Enter键
SendKey(KENTER)
WaitCount = 0
End If
Loop While Not IsRdpStart

WScript.Sleep ONE_SECOND*10
WshShell.Run "taskkill /F /IM rdp.exe /T",0,True
WScript.Sleep ONE_SECOND
SendKey(KUP)
SendKey(KUP)
While WshShell.AppActivate("桌面列表")=False
WScript.Sleep ONE_SECOND/10
Wend
'MsgBox "关闭1"
WScript.Sleep ONE_SECOND*2
SendKey(KALTF4)
WScript.Sleep ONE_SECOND
'MsgBox "关闭2"
Wend

Sub SendKey(Key)
WshShell.SendKeys Key
End Sub

Function IsRdpStart()
Dim Pos,s
'生成批处理文件
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set BatFile = fso.CreateTextFile("task.bat",True)
BatFile.WriteLine("tasklist /FI ""IMAGENAME eq rdp.exe"" /FO CSV /NH > test.dat")
BatFile.Close

Set Exec = WScript.CreateObject("WScript.Shell")
'0，不显示执行窗口。1，等待命令执行完成
Exec.Run "task.bat",0,1

'读取批处理程序执行结果
s=""
Set ts = fso.OpenTextFile("test.dat")
s = ts.ReadAll
ts.Close()

'删除临时文件
Set ts = fso.GetFile("test.dat")
ts.Delete

Set BatFile = fso.GetFile("task.bat")
BatFile.Delete

'检查结果
'MsgBox "" & s & ""
Pos = InStr(s,"rdp.exe")
If Pos < 1 Then
IsRdpStart = False
Else
IsRdpStart = True
End If
End Function

Function IsRdpStart2()
Dim Pos,WshShell, oExec, input
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("tasklist /FI ""IMAGENAME eq rdp.exe"" /FO CSV /NH")
input = ""

Do While True
If Not oExec.StdOut.AtEndOfStream Then
input = input & oExec.StdOut.ReadLine
Else
Exit Do
End If
WScript.Sleep 100
Loop

'检查结果
Pos = InStr(input,"rdp.exe")
If Pos < 1 Then
IsRdpStart2 = False
Else
IsRdpStart2 = True
End If
End Function