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 :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 colAdapters = objWMIService.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")Mais comment utiliser les deux dans un seul et même script?????????
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem")
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 :
Merci d'avance!
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
Partager