Discussion :

[koKoTis]

Bonjour, j'ai besoin d'uns script VBS qui affiche certaine information sur le PC:

1 -> Les adresse IP et passerelle

2 -> carte mére

3 -> Carte réseau

4 -> carte son

5 -> processeur


pouriez vous m'aider ?

[ced600]

Pour le 1, j'ai :

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
strComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapter " _
        & "Where NetConnectionID = " & _
        "'Local Area Connection 2'")
 
For Each objItem in colItems
    strMACAddress = objItem.MACAddress
Next
 
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration")
 
For Each objItem in colItems
    If objItem.MACAddress = strMACAddress Then
        For Each strIPAddress in objItem.IPAddress
            Wscript.Echo "IP Address: " &  strIPAddress
        Next
    End If
Next

Pour le reste, cela dépend de ce que tu veux savoir.

Mais de façon générale, pour obtenir des informations sur le poste local, quelqu'un nous a fournis un source pas mal du tout :
http://www.developpez.net/forums/sho...d.php?t=357058

Essaye le et prend ce que tu as besoins.

[koKoTis]

Bonjour et merci beaucoup

Ton script ne fonctione pas chez moi, le Wscript.Echo ne s'affiche pas


Je vais voir ton lien

[koKoTis]

Dans le lien que tu ma donner, j'ai récupére ceci:

Code :

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

1
2
3
4
Set colBaseBoards =  objWMIService.ExecQuery _
    ("Select * from Win32_BaseBoard")
report = report & vbCrLf & "******************************************" & vbCrLf
report = report & "Carte-mère" & vbCrLf & "******************************************" & vbCrLf

Mais ca me renvoi une erreur

[ced600]

Il faut que tu me donnes les erreurs pour que je comprenne le problème.
Pour le script tu dois conserver cette ligne aussi :

Code :

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

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

[koKoTis]

Donc j'ai ceci:

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
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colBaseBoards =  objWMIService.ExecQuery _
    ("Select * from Win32_BaseBoard")
report = report & vbCrLf & "******************************************" & vbCrLf
report = report & "Carte-mère" & vbCrLf & "******************************************" & vbCrLf
 
For Each objBaseBoard in colBaseBoards
 
        report = report & "- Nom: " & objBaseBoard.Name & vbCrLf
        report = report & "- Modèle: " & objBaseBoard.Model & vbCrLf
        report = report & "- Manufacturier: " & objBaseBoard.Manufacturer & vbCrLf
        report = report & "- Numéro de série: " & objBaseBoard.SerialNumber & vbCrLf
        report = report & "- Numéro d'inventaire (SKU): " & objBaseBoard.SKU & vbCrLf
        report = report & vbCrLf
Next

Et j'ai cette erreur:

[ced600]

Bonjour et merci beaucoup

Ton script ne fonctione pas chez moi, le Wscript.Echo ne s'affiche pas


Je vais voir ton lien

Esaaye avec msgbox au lieu de wscript.echo

[koKoTis]

Esaaye avec msgbox au lieu de wscript.echo

Ca ne change rien

[ced600]

dis moi lorque tu copies colles dans ton fichier script, tu enlèves bien les

_

?

Ceci :

Code :

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

1
2
Set colBaseBoards =  objWMIService.ExecQuery _
    ("Select * from Win32_BaseBoard")

Deviens ceci :

Code :

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

Set colBaseBoards =  objWMIService.ExecQuery("Select * from Win32_BaseBoard")