นี่คือสคริปต์ HTA คัดลอกรหัสต่อไปนี้จากนั้นแก้ไขไฟล์ต่อท้ายเป็น ccc.hta เพื่อใช้ สคริปต์ดั้งเดิมมาจาก: myitforum.com
"ไฟล์การเชื่อมต่อ"
/คอนโซล
/ผู้ดูแลระบบ
/w: xxx
/h: xxx
/สาธารณะ
/ช่วง
/แก้ไข
/โยกย้าย
สำหรับรายการที่สมบูรณ์ของสวิตช์การเชื่อมต่อเดสก์ท็อประยะไกลที่มีอยู่พร้อมใช้งานจากการเรียกใช้สายเรียกเข้า: MSTSC /?
เคล็ดลับ: ในบรรทัดที่อ่าน:
<อินพุต type = "Radio" name = "RadioPtion" value = "ServerOne"> เซิร์ฟเวอร์หนึ่ง <br>
คุณสามารถเปลี่ยน value = "ServerOne" เป็นที่อยู่ IP ของเครื่องจักรได้หากจำเป็นหรือคุณสามารถเปลี่ยนค่าชื่อเครื่องเซิร์ฟเวอร์หนึ่งชื่อเป็นชื่ออธิบายเพิ่มเติมเช่นในตัวอย่างด้านล่าง:
<อินพุต type = "Radio" name = "RadioPtion" value = "SMS001"> หลัก <br>
<อินพุต type = "Radio" name = "RadioPtion" value = "SMS002"> รอง <br>
สคริปต์ HTA:
รหัสมีดังนี้:
<html>
<head>
<title> รีโมตเดสก์ท็อปตัวเลือก </title>
<style>
ร่างกาย {พื้นหลังสี: Cornsilk}
</style>
<HTA: แอปพลิเคชัน
คำบรรยายภาพ = ใช่
เส้นขอบ = หนา
Scroll = ไม่
showintaskBar = ไม่
MaximizeButton = ใช่
minimizeButton = ใช่>
<ภาษาสคริปต์ = vbscript>
sub window_onload
window.resizeto 400,250
สิ้นสุดย่อย
sub windowsload
สำหรับ Objbutton แต่ละตัวใน RadioOption
ถ้า objbutton ตรวจสอบแล้ว
ตั้งค่า wshshell = createObject ("wscript.shell")
wshshell.run "mstsc /v" & objbutton.value & " /f"
สิ้นสุดถ้า
ต่อไป
self.close ()
สิ้นสุดย่อย
</script> <body>
<p> <h3 align = center> <font color = 'Orange'> กรุณาเยี่ยมชม myitforum.com </font> </h3>
<div> </div>
<table allign = 'center'>
<อินพุต type = "Radio" name = "172.16.24.100" value = "ServerOne"> 172.16.24.100 <br>
<อินพุต type = "Radio" name = "RadioPtion" value = "ServertWo"> เซิร์ฟเวอร์สอง <br>
<อินพุต type = "Radio" name = "RadioPtion" value = "ServerTree"> เซิร์ฟเวอร์สาม <p>
<อินพุต ID = runButton type = "button" value = "run script" name = "run_button" onclick = "windowsload">
<span id = "dataarea"> </span> </body> </html>