การบรรยายภาคปฏิบัติของ WSH: การบรรยายที่ 1: การรับการกำหนดค่าคุณลักษณะเครือข่ายของเครื่อง
ผู้เขียน:Eve Cole
เวลาอัปเดต:2009-05-30 19:53:51
สำหรับข้อความต้นฉบับ โปรดไปที่ WSH (บ้านหลังเล็กของ WHITE) (http://wwwasp.yeah.net)
ที่จริงแล้วเป็นเพียงการอ่านรีจิสทรี แต่ถ้าคุณสามารถรับการกำหนดค่า IP และข้อมูลอื่น ๆ ของเครื่องได้ การกำหนดค่า IIS ในอนาคตก็จะเป็นเรื่องง่าย สคริปต์ต่อไปนี้อ่านที่อยู่ IP ที่มีอยู่ทั้งหมดของเครื่อง ซับเน็ตมาสก์ แต่ละเว้นเกตเวย์และข้อมูลอื่น ๆ:
รหัส:
-------------------------------------------------- -------------------------------------------------- ----------------------------------
ตัวเลือกที่ชัดเจน Dim WSHShell Dim sNic, sMan Dim Gateway Dim IPAddress Dim SubnetMask Dim i Dim
sTcpipRegKey Dim bisDHCP ตั้งค่า WSHShell = CreateObject("WScript.Shell") sNic = WSHShell.RegRead
("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards1ServiceName") ถ้า sTcpipRegKey
<> "Microsoft" และ Err.Number = 0 จากนั้น sTcpipRegKey = "HKLMSYSTEMCurrentControlSetServices" & sNic
& "ParametersTcpip" bisDHCP = WSHShell.RegRead(sTcpipRegKey & "EnableDHCP") ถ้า bIsDHCP แล้ว
เกตเวย์ = WSHShell.RegRead (sTcpipRegKey & "DhcpDefaultGateway") IPAddress = WSHShell.RegRead
(sTcpipRegKey & "DhcpIPAddress") SubnetMask = WSHShell.RegRead(sTcpipRegKey & "DhcpSubnetMask")
MsgBox ("DefaultGateway: " & เกตเวย์ (0) & Chr (10) & Chr (13) & "ที่อยู่ IP: " & IPAddress & Chr (10) &
Chr (13) & "SubnetMask: " & SubnetMask) เกตเวย์อื่น = WSHShell.RegRead (sTcpipRegKey
& "DefaultGateway") IPAddress = WSHShell.RegRead(sTcpipRegKey & "IPAddress") SubnetMask =
WSHShell.RegRead(sTcpipRegKey & "SubnetMask") สำหรับ i=0 ถึง Ubound(IPAddress)-1 MsgBox
("เกตเวย์เริ่มต้น: " & เกตเวย์ (0) & Chr (10) & Chr (13) & "ที่อยู่ IP: " & IPAddress (i) & Chr (10) & Chr (13)
& "SubnetMask: " & SubnetMask(i)) สิ้นสุดถัดไปหากสิ้นสุดหาก
-------------------------------------------------- -------------------------------------------------- ----------------------------------
หมายเหตุ: การกำหนดค่าเครือข่ายของเครื่องจะถูกบันทึกไว้ในรีจิสทรี ใต้รายการการ์ดเครือข่าย ดังนั้นคุณต้องทราบชื่อของการ์ดเครือข่ายก่อน จากนั้นรับข้อมูลรีจิสทรี ที่อยู่ IP และซับเน็ตมาสก์ทั้งหมดอยู่ในรูปแบบอาร์เรย์ (อันที่จริง รีจิสทรีบันทึกข้อมูลไบนารี VBSCRIPT ช่วยให้เราแปลงข้อมูล) การอ่านรีจิสทรีใน WSH นั้นง่ายมาก โปรดดูรายละเอียดขั้นตอนข้างต้น