VBS - Définir un range IP - VB/VBA/VBS - Programmation
MarshPosté le 02-07-2004 à 14:29:19
Hi All,
J'ai déjà ce qu'il me faut pour définir une adresse IP voire un hostname, mais j'aimerai pouvoir définir un range pour obtenir un resultat IP par IP.
Voici ce que j'ai déjà:
Set wshell = CreateObject("WScript.Shell" ) strComputer = InputBox ("Enter IP Addr. or Hostname.", "ScureScan", "" ) If strComputer = "" Then MsgBox "Please enter a valid hostname or IP" End If Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Marsh Posté le 02-07-2004 à 14:29:19
Hi All,
J'ai déjà ce qu'il me faut pour définir une adresse IP voire un hostname, mais j'aimerai pouvoir définir un range pour obtenir un resultat IP par IP.
Voici ce que j'ai déjà:
Set wshell = CreateObject("WScript.Shell" )
strComputer = InputBox ("Enter IP Addr. or Hostname.", "ScureScan", "" )
If strComputer = "" Then
MsgBox "Please enter a valid hostname or IP"
End If
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Merci