Bonjour,

voila après plusieurs heures de réflexion et de recherche je tourne réellement en ronds alors svp même si c'est bateau Aidé moi!!!!
ps: j'ai commencer le script il y à quelques jours ...

voila j'aimerais diffuser un fichier sur plusieurs machine pour que quand on l'ouvre il nous affiche divers informations de la machine
je pense être sur la bonne voie,

j'arrive à afficher l'adresse ip de la machine en utilisant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 Set colAdapters = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
j'arrive à afficher le nom de machine à partir d'un autre script en utilisant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
Mais comment utiliser les deux dans un seul et même script?????????


voilà mes deux scripte :

Scripte pour afficher l'adresse ip :

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
17
18
19
Dim objWMIService
Dim strComputer
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2") 
 
Set colAdapters = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
 
For Each objAdapter in colAdapters
 
msgbox "Adresse IP: " & objAdapter.IPAddress(i)
 
Next


Scripte Affiche le nom de machine :

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
Dim objWMIService
Dim strComputer
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
 
For Each objItem in colItems
 
msgbox "Nom de l'Ordinateur: " & objItem.CSName
Next
Merci d'avance!