[VBS] Connaitre l'adresse IP d'un compte d'ordinateur
PARKER13
Messages postés
33
Date d'inscription
vendredi 18 octobre 2002
Statut
Membre
Dernière intervention
31 mars 2009
-
26 févr. 2007 à 11:22
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 27 févr. 2007 à 09:13
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 27 févr. 2007 à 09:13
A voir également:
- Vbs adresse
- Msgbox vbs - Conseils pratiques -Visual Basic / VB.NET
- Mathurine a créé son profil sur un forum, en renseignant comme adresse électronique : mathurine[arobase]pixmail.org pourquoi a-t-elle écrit son adresse de cette manière ? ✓ - Forum Visual Basic
- Ecrire le nombre de fois qu 'un mot apparait - Forum PHP
- Mathurine a créé son profil sur un forum, en renseignant comme adresse électronique : mathurine[arobase]pixmail.org pourquoi a-t-elle écrit son adresse de cette manière ✓ - Forum C++ & C++ .NET
- Adresse cam ✓ - Forum C# / .NET
1 réponse
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
27 févr. 2007 à 09:13
27 févr. 2007 à 09:13
Bonjour à tous
Petit exemple pour afficher l'IP à partir du ComputerName.
Set ObjNetWork = WScript.CreateObject("WScript.Network")
strComputer = ObjNetWork.ComputerName
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\")._
ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
WScript.Echo "ProtocolAddress: " & objStatus.ProtocolAddress &vbCrLf&_
"nom: " & objStatus.Address &vbCrLf&_
"status= " &vbTab& objStatus.Statuscode &vbTab& "repond au ping !"
else
WScript.Echo objStatus.Address &vbCrLf&_
"status= " &vbTab& objStatus.StatusCode &vbTab& "n'a pas repondu au ping!"
End If
Next
Set objPing = Nothing
Set ObjNetWork = Nothing
jean-marc
Petit exemple pour afficher l'IP à partir du ComputerName.
Set ObjNetWork = WScript.CreateObject("WScript.Network")
strComputer = ObjNetWork.ComputerName
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\")._
ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
WScript.Echo "ProtocolAddress: " & objStatus.ProtocolAddress &vbCrLf&_
"nom: " & objStatus.Address &vbCrLf&_
"status= " &vbTab& objStatus.Statuscode &vbTab& "repond au ping !"
else
WScript.Echo objStatus.Address &vbCrLf&_
"status= " &vbTab& objStatus.StatusCode &vbTab& "n'a pas repondu au ping!"
End If
Next
Set objPing = Nothing
Set ObjNetWork = Nothing
jean-marc