用hta實現的遠程桌面連接腳本

2024-08-26 00:15:40

字體：大中小

來源：轉載

供稿：網友

這是一個HTA的腳本,復制下面代碼,然后將文件后綴修改為CCC.HTA即可使用,腳本原文出自: myITforum.Com
“Connection File”
/Console
/Admin
/W:xxx
/H:xxx
/Public
/Span
/Edit
/Migrate
For a complete list of available remote desktop connection usage switches from the Run line enter: Mstsc /?
Tip: On the line(s) that read:

<input type="radio" name="RadioOption" value="ServerOne">Server One<BR>
You can change the value="ServerOne" to the machines IP address if needed or you can change the Server One machine name value to a more descriptive name such as in the example below:
<input type="radio" name="RadioOption" value="SMS001">Primary<BR>
<input type="radio" name="RadioOption" value="SMS002">Secondary<BR>
HTA Script:

代碼如下:
<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.100<BR>
<input type="radio" name="RadioOption" value="ServerTwo">Server Two<BR>
<input type="radio" name="RadioOption" value="ServerThree">Server Three<P>
<input id=runbutton class="button" type="button" value="Run Script" name="run_button" onClick="WindowsLoad">
<Span Id = "DataArea"></Span></Body></html>