WSH 실습 강의: 강의 1: 기계의 네트워크 속성 구성 획득
저자:Eve Cole
업데이트 시간:2009-05-30 19:53:51
원문은 WSH(WHITE's Little Home)(http://wwwasp.yeah.net)에서 확인하실 수 있습니다.
사실 그냥 레지스트리를 읽는 것 뿐이지만, 기기의 IP 구성이나 기타 정보를 얻을 수 있다면 나중에 IIS를 구성하는 것도 간단해질 것입니다. 다음 스크립트는 시스템의 사용 가능한 모든 IP 주소, 서브넷 마스크를 읽지만 게이트웨이 및 기타 정보는 생략합니다.
암호:
------------------------------------- ----------------------------------
옵션 명시적 Dim WSHShell Dim sNic, sMan Dim 게이트웨이 Dim IPAddress Dim SubnetMask Dim i Dim
sTcpipRegKey Dim bIsDHCP Set WSHShell = CreateObject("WScript.Shell") sNic = WSHShell.RegRead
("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards1ServiceName") sTcpipRegKey인 경우
<> "Microsoft" 및 Err.Number = 0 그러면 sTcpipRegKey = "HKLMSYSTEMCurrentControlSetServices" & sNic
& "ParametersTcpip" bIsDHCP = WSHShell.RegRead(sTcpipRegKey & "EnableDHCP") If bIsDHCP 그러면
게이트웨이 = WSHShell.RegRead(sTcpipRegKey & "DhcpDefaultGateway") IPAddress = WSHShell.RegRead
(sTcpipRegKey & "DhcpIPAddress") SubnetMask = WSHShell.RegRead(sTcpipRegKey & "DhcpSubnetMask")
MsgBox ("DefaultGateway: " & 게이트웨이(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress & Chr(10) &
Chr(13) & "SubnetMask: " & SubnetMask) Else 게이트웨이 = WSHShell.RegRead(sTcpipRegKey
& "DefaultGateway") IPAddress = WSHShell.RegRead(sTcpipRegKey & "IPAddress") SubnetMask =
WSHShell.RegRead(sTcpipRegKey & "SubnetMask") For i=0 to Ubound(IPAddress)-1 MsgBox
("DefaultGateway: " & 게이트웨이(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress(i) & Chr(10) & Chr(13)
& "SubnetMask: " & SubnetMask(i)) Next End If End If
------------------------------------- ----------------------------------
참고: 기기의 네트워크 구성은 레지스트리의 네트워크 카드 항목 아래에 저장되므로 먼저 네트워크 카드의 이름을 알아야 합니다. 그런 다음 레지스트리 데이터를 가져옵니다. IP 주소와 서브넷 마스크는 모두 배열 형식입니다. 실제로 레지스트리는 이진 데이터를 저장하며 VBSCRIPT는 이를 변환하는 데 도움이 됩니다. WSH에서 레지스트리를 읽는 것은 매우 간단합니다. 자세한 내용은 위 절차를 참조하세요.