Discussion :

[parker13]

Bonjour,

Je souhaiterais écrire un script qui interroge tous les comptes d'ordinateurs, et en fonction de leurs adresses IP, déplacer ces comptes d'ordinateurs dans certaines Unités d'Organisation (OU).

En VBS, je souhaiterais donc connaitre l'adresse IP d'un compte d'ordinateur.

Je suppose que le plus judicieux est d'interroger le serveur DNS via Active Directory, non ?

Merci d'avance

Cordialement
Parker13

[ThierryAIM]

bbil à écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Computer=InputBox ("Nom de l'ordinateur à tester où rien pour celui-ci : ","IpConfig")
On error resume next 
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE") 
If Err.Number<>0 Then 
     wscript.echo " - non accessible -" 
Else 
for each IPConfig in IPConfigSet 
     MsgBox " Configuration réseau de l'ordinateur " & computer & vbcrlf & vbcrlf & _ 
          " Carte " & vbtab & vbtab & " : " & IPConfig.Description & vbcrlf & _ 
          " adresse MAC " & vbtab & " : " & IPConfig.MACAddress & vbcrlf & _ 
          " adresse IP " & vbtab & " : " & IPConfig.IPAddress(0) & vbcrlf & _ 
          " DNSHostName " & vbtab & " : " & IPConfig.DNSHostName _ 
          ,,"Configuration  " 
     Next 
End If

si ça ne convient pas, tu dis