用hta實(shí)現(xiàn)的遠(yuǎn)程桌面連接腳本

Html>
Head>
Title>Remote Desktop Chooser/Title>
Style>
Body {Background-Color: CornSilk}
/Style>
HTA:Application
Caption = Yes
Border = Thick
Scroll = No
ShowInTaskBar = No
MaximizeButton = Yes
MinimizeButton = Yes>
script Language = VBScript>
Sub Window_OnLoad
Window.ResizeTo 400,250
End Sub
Sub WindowsLoad
For Each objButton in RadioOption
If objButton.Checked Then
Set wshShell = CreateObject("WScript.Shell")
WshShell.Run "Mstsc /V " objButton.Value " /F"
End If
Next
Self.Close()
End Sub
/script>Body>
p>h3 align = center>font color='Orange'>Please Visit myITforum.Com/font>/h3>
div>/div>
table align='center'>
input type="radio" name="172.16.24.100" value="ServerOne">172.16.24.100BR>
input type="radio" name="RadioOption" value="ServerTwo">Server TwoBR>
input type="radio" name="RadioOption" value="ServerThree">Server ThreeP>
input id=runbutton  class="button" type="button" value="Run Script" name="run_button"  onClick="WindowsLoad">
Span Id = "DataArea">/Span>/Body>/html>