WSH-Praxisvorlesung: Vorlesung 1: Ermitteln der Netzwerkattributkonfiguration der Maschine

Autor：Eve Cole Aktualisierungszeit：2009-05-30 19:53:51

Den Originaltext finden Sie unter WSH (WHITE’s Little Home) (http://wwwasp.yeah.net).
Tatsächlich liest es nur die Registrierung, aber wenn Sie die IP-Konfiguration und andere Informationen des Computers erhalten, wird es in Zukunft einfacher sein, IIS zu konfigurieren. Das folgende Skript liest alle verfügbaren IP-Adressen der Maschine und die Subnetzmaske aus, lässt jedoch Gateway- und andere Informationen aus:

Code:
-------------------------------------------------- ----------------------------------

Option Explicit Dim WSHShell Dim sNic, sMan Dim Gateway Dim IPAddress Dim SubnetMask Dim i Dim
sTcpipRegKey Dim bIsDHCP Set WSHShell = CreateObject("WScript.Shell") sNic = WSHShell.RegRead
("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards1ServiceName") Wenn sTcpipRegKey
<> „Microsoft“ und Err.Number = 0, dann sTcpipRegKey = „HKLMSYSTEMCurrentControlSetServices“ & sNic
& "ParametersTcpip" bIsDHCP = WSHShell.RegRead(sTcpipRegKey & "EnableDHCP") Wenn bIsDHCP, dann
Gateway = WSHShell.RegRead(sTcpipRegKey & "DhcpDefaultGateway") IPAddress = WSHShell.RegRead
(sTcpipRegKey & „DhcpIPAddress“) SubnetMask = WSHShell.RegRead(sTcpipRegKey & „DhcpSubnetMask“)
MsgBox ("DefaultGateway: " & Gateway(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress & Chr(10) &
Chr(13) & "SubnetMask: " & SubnetMask) Else Gateway = WSHShell.RegRead(sTcpipRegKey
& "DefaultGateway") IPAddress = WSHShell.RegRead(sTcpipRegKey & "IPAddress") SubnetMask =
WSHShell.RegRead(sTcpipRegKey & "SubnetMask") Für i=0 bis Ubound(IPAddress)-1 MsgBox
("DefaultGateway: " & Gateway(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress(i) & Chr(10) & Chr(13)
& "SubnetMask: " & SubnetMask(i)) Next End If End If

-------------------------------------------------- ----------------------------------

Hinweis: Die Netzwerkkonfiguration des Geräts wird in der Registrierung unter dem Eintrag „Netzwerkkarte“ gespeichert. Daher müssen Sie zunächst den Namen der Netzwerkkarte kennen. Rufen Sie dann die Registrierungsdaten ab, die IP-Adresse und die Subnetzmaske liegen alle in Array-Form vor (tatsächlich speichert die Registrierung Binärdaten, VBSCRIPT hilft uns bei der Konvertierung). Das Lesen der Registrierung in WSH ist sehr einfach. Einzelheiten finden Sie im obigen Verfahren.