Ini adalah skrip HTA. Salin kode berikut, dan kemudian modifikasi sufiks file ke ccc.hta untuk menggunakannya. Skrip aslinya adalah dari: myitforum.com
"File Koneksi"
/Menghibur
/Admin
/W: xxx
/H: xxx
/Publik
/Menjangkau
/Edit
/Bermigrasi
Untuk daftar lengkap sakelar penggunaan koneksi desktop jarak jauh yang tersedia dari jalur Run Enter: MSTSC /?
Kiat: Di garis yang berbunyi:
<input type = "Radio" name = "RadioOption" value = "ServerOne"> Server One <br>
Anda dapat mengubah nilai = "ServerOne" ke alamat IP mesin jika diperlukan atau Anda dapat mengubah nilai satu nama mesin server ke nama yang lebih deskriptif seperti pada contoh di bawah ini:
<input type = "Radio" name = "RadioOption" value = "sms001"> primer <br>
<input type = "Radio" name = "RadioOption" value = "sms002"> Secondary <br>
Skrip HTA:
Kodenya adalah sebagai berikut:
<Html>
<head>
<Title> Pemilih Desktop Jarak Jauh </iteme>
<tyle>
Tubuh {latar belakang-warna: Cornsilk}
</tyle>
<HTA: Aplikasi
Keterangan = ya
Perbatasan = tebal
Gulir = tidak
ShowInkBar = tidak
MaximizeButton = Ya
MinimizeButton = Ya>
<bahasa skrip = vbscript>
Sub window_onload
Window.Resizeto 400.250
Akhir sub
Sub Windowsload
Untuk setiap objbutton di radiooption
Jika objbutton.Checked itu
Set wshshell = createObject ("wscript.shell")
Wshshell.run "mstsc /v" & objbutton.value & " /f"
Akhiri jika
Berikutnya
Self.close ()
Akhir sub
</script> <body>
<p> <h3 align = center> <font color = 'oranye'> Silakan kunjungi 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 dua <br>
<input type = "Radio" name = "RadioOption" value = "ServerThree"> Server tiga <p>
<input id = runbutton type = "tombol" value = "run script" name = "run_button" onClick = "windowsload">
<Span id = "dataarea"> </span> </body> </html>