Cours pratique WSH : Cours 1 : Obtention de la configuration des attributs réseau de la machine
Auteur:Eve Cole
Date de mise à jour:2009-05-30 19:53:51
Pour le texte original, veuillez vous rendre sur WSH (WHITE’s Little Home) (http://wwwasp.yeah.net)
En fait, il s'agit simplement de lire le registre, mais si vous pouvez obtenir la configuration IP et d'autres informations de la machine, il sera simple de configurer IIS à l'avenir. Le script suivant lit toutes les adresses IP disponibles de la machine, le masque de sous-réseau, mais omet la passerelle et d'autres informations :
Code:
-------------------------------------------------- ----------------------------------
Option Explicite 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") Si sTcpipRegKey
<> "Microsoft" Et Err.Number = 0 Puis sTcpipRegKey = "HKLMSYSTEMCurrentControlSetServices" & sNic
& "ParametersTcpip" bIsDHCP = WSHShell.RegRead(sTcpipRegKey & "EnableDHCP") Si bIsDHCP Alors
Passerelle = WSHShell.RegRead(sTcpipRegKey & "DhcpDefaultGateway") Adresse IP = 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) Sinon Gateway = WSHShell.RegRead(sTcpipRegKey
& "DefaultGateway") Adresse IP = WSHShell.RegRead (sTcpipRegKey & "IPAddress") SubnetMask =
WSHShell.RegRead(sTcpipRegKey & "SubnetMask") Pour i=0 à Ubound(IPAddress)-1 MsgBox
("DefaultGateway : " & Gateway (0) & Chr (10) & Chr (13) & " IPAddress : " & IPAddress (i) & Chr (10) & Chr (13)
& "SubnetMask : " & SubnetMask(i)) Suivant Fin si Fin si
-------------------------------------------------- ----------------------------------
Remarque : La configuration réseau de la machine est enregistrée dans le registre, sous l'élément carte réseau, vous devez donc d'abord connaître le nom de la carte réseau. Ensuite, récupérez les données du registre, l'adresse IP et le masque de sous-réseau sont tous sous forme de tableau (en fait, le registre enregistre les données binaires, VBSCRIPT nous aide à les convertir). La lecture du registre dans WSH est très simple, veuillez consulter la procédure ci-dessus pour plus de détails.