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 :
Voilà, j'en appel a votre savoir pour me donner la direction à suivre pour résoudre mon problème de script.
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
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
Dans l'attente de vous lire.
Krumpir
Partager