Aide pour un script pour récupérer des infos sur un poste
Bonjour à la communauté
Je suis novice en vbs et récupère des exemples a droite a gauche en essaynt de les compiler pour obtenir le script avec la fonction que je recherche.
Dans la cadre de mon activité, il me faudrait un script qui me permette de d'afficher à l'utilisateur des infos sur son poste.
J'ai trouvé un script qui me permet de récupérer l'IP, l'adresse MAC, le nom de l'ordinateur et le système d'exploitation.
Le seul problème c'est que j'ouvre 2 pop up d'information.
J'ai donc tenter de les compiler pour n'avoir q'un seul pop up.
C'est là que je rencontre des problèmes car mon script ne fonctionne pas.
Je me retrouve avec l'erreur 'Next' Attendu sans savoir pourquoi.
Je pense que mes compétences sont trop faible et j'en suis même sur.
Voici le script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| 'Informations sur votre système d'exploitation
On Error Resume Next
Set oShell = CreateObject("wscript.Shell")
Set env = oShell.environment("Process")
strComputer = env.Item("Computername")
Dim objWMIService
Dim colItems, objItem
Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objItem in colItems
WScript.Echo "Informations OS" & VbCr & _
"Systeme d'Exploitation: " & objItem.Caption & VbCr & _
""
set wshnetwork=wscript.createobject("wscript.network")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\"& strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
n = 1
For Each objAdapter in colAdapters
msgbox "Nom de l'ordinateur: " &wshnetwork.computername & vbcr & vbcr &"Systeme d'Exploitation: " & objItem.Caption & VbCr &"Adresse MAC: " & objAdapter.MACAddress & vbcr& vbcr &"Adresse IP: " & objAdapter.IPAddress(i)
Next |
Voilà, j'en appel a votre savoir pour me donner la direction à suivre pour résoudre mon problème de script.
Dans l'attente de vous lire.
Krumpir
