Aula prática WSH: Aula 1: Obtendo a configuração de atributos de rede da máquina
Autor:Eve Cole
Data da Última Atualização:2009-05-30 19:53:51
Para o texto original, acesse WSH (WHITE’s Little Home) (http://wwwasp.yeah.net)
Na verdade, é apenas uma leitura do registro, mas se você conseguir obter a configuração do IP e outras informações da máquina, será simples configurar o IIS no futuro. O script a seguir lê todos os endereços IP disponíveis da máquina, máscara de sub-rede, mas omite o gateway e outras informações:
Código:
-------------------------------------------------- ----------------------------------
Opção Explícita Dim WSHShell Dim sNic, sMan Dim Gateway Dim Endereço IP Dim SubnetMask Dim i Dim
sTcpipRegKey Dim bIsDHCP Set WSHShell = CreateObject("WScript.Shell") sNic = WSHShell.RegRead
("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards1ServiceName") Se sTcpipRegKey
<> "Microsoft" E Err.Number = 0 Então sTcpipRegKey = "HKLMSYSTEMCurrentControlSetServices" & sNic
& "ParametersTcpip" bIsDHCP = WSHShell.RegRead(sTcpipRegKey & "EnableDHCP") Se bIsDHCP Então
Gateway = WSHShell.RegRead(sTcpipRegKey & "DhcpDefaultGateway") IPAddress = WSHShell.RegRead
(sTcpipRegKey & "DhcpIPAddress") SubnetMask = WSHShell.RegRead(sTcpipRegKey & "DhcpSubnetMask")
MsgBox ("DefaultGateway: " & Gateway(0) & Chr(10) & Chr(13) & "Endereço IP: " & Endereço IP & Chr(10) &
Chr(13) & "SubnetMask: " & SubnetMask) Else Gateway = WSHShell.RegRead(sTcpipRegKey
& "DefaultGateway") Endereço IP = WSHShell.RegRead (sTcpipRegKey & "Endereço IP") SubnetMask =
WSHShell.RegRead(sTcpipRegKey & "SubnetMask") Para i=0 para Ubound(IPAddress)-1 MsgBox
("DefaultGateway: " & Gateway(0) & Chr(10) & Chr(13) & "IPAddress: " & IPAddress(i) & Chr(10) & Chr(13)
& "SubnetMask: " & SubnetMask(i)) Próximo Fim Se Fim Se
-------------------------------------------------- ----------------------------------
Obs: A configuração de rede da máquina fica salva no registro, no item placa de rede, portanto é necessário primeiro saber o nome da placa de rede. Em seguida, obtenha os dados do registro, o endereço IP e a máscara de sub-rede estão todos em formato de array (na verdade, o registro salva dados binários, o VBSCRIPT nos ajuda a convertê-los). A leitura do registro no WSH é muito simples, consulte o procedimento acima para obter detalhes.