Afficher des information sur le PC

**SfJ5Rpw8** · 19/01/2008, 12h41

Envoyé par imparator_42

et cest a quelle ligne quil envoit ça ???

bonjour imparator_42... as-tu vu que tu est dans le forum VBScript ..!!

**koKoTis** · 19/01/2008, 12h42

Envoyé par imparator_42

Pour Adresse ip :

Code :

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

1
2
3
4
5
6
 
Private Sub Form_Load()
 
IP.Caption = "Adresse IP de votre ordinateur:" + Winsock1.LocalIP
 
End sub

Bon il faut savoir qu'il faut ajouter un label qui porte le nom "IP"...
Apres tu peux le changer comme tu veux

Merci encore

Le script n'affiche rien chez moi

**koKoTis** · 19/01/2008, 12h42

Envoyé par imparator_42

et cest a quelle ligne quil envoit ça ???

la ligne 2 caractére 17

**koKoTis** · 19/01/2008, 12h43

Envoyé par bbil

bonjour imparator_42... as-tu vu que tu est dans le forum VBScript ..!!

ah, c'est pas du vbs qui m'a donner ?

**imparator_42** · 19/01/2008, 12h48

Excusez moi, je pas fait tres gaffe ,je coryais quon était sur VB6

**koKoTis** · 19/01/2008, 12h51

ok, c'est pas grave, merci quand même

**koKoTis** · 20/01/2008, 14h05

Vous sauriez comment afficher les conections réseau ?

**SfJ5Rpw8** · 20/01/2008, 19h59

Envoyé par koKoTis

Vous sauriez comment afficher les conections réseau ?

qu'appelle tu les connexions réseaux..?

as tu regardé la discussion du forum contributions VBscript citée plus haut par Ced600 ? ce script ne te donne t'il pas les résultats escomptés ?

**koKoTis** · 20/01/2008, 20h48

ben le nom des connection quoi

je n'ai rien vu sur la connaction réseau

**ced600** · 21/01/2008, 09h44

Normalement il t'affiche les détails de connnection.
Je ne sais pas si tu as vu mais le script ne t'affiche rien à l'écran, il enregistre tout dans un fichier inventaire sur c:

Normalement c'est ce code là :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapter")
report = report & "******************************************" & vbCrLf
report = report & "Carte(s) réseau(x)" & vbCrLf & "******************************************" & vbCrLf
 
For Each objAdapter in colAdapters
 
        If (objAdapter.Manufacturer<>"Microsoft") Then
                'report = report & "- Nom de la carte/adapteur (Caption): " & objAdapter.Caption & vbcrlf
                report = report & "- Nom de la carte/adapteur: " & objAdapter.Name & vbcrlf
                report = report & "- Type de la carte/adapteur: " & objAdapter.AdapterType & vbcrlf
                'report = report & "- État actuel: " & objAdapter.Availability & vbcrlf
                report = report & "- Description: " & objAdapter.Description & vbcrlf
                report = report & "- Adresse MAC: " & objAdapter.MACAddress & vbcrlf
                'report = report & "- Adresse réseau de la carte: " & objAdapter.NetworkAddresses & vbcrlf
                'report = report & "- Adresse préprogrammée: " & objAdapter.PermanentAddress & vbcrlf
                report = report & "- Nom du fabricant: " & objAdapter.Manufacturer & vbcrlf
                report = report & "- Nom du produit: " & objAdapter.ProductName & vbcrlf
                report = report & "- Nom de service: " & objAdapter.ServiceName & vbcrlf
                report = report & "- Vitesse maximale: " & objAdapter.MaxSpeed & vbcrlf
                'If (objAdapter.Speed = 0) Or (objAdapter.Speed = "") Then
                '        report = report & "- Bande passante actuelle: Non-disponible ou si faible qu'elle indique 0" & vbcrlf
                'Else
                '        report = report & "- Bande passante actuelle: " & objAdapter.Speed & vbcrlf
                'End If
                'report = report & "- Date de la dernière réinitialisation: " & objAdapter.TimeOfLastReset & vbcrlf
 
                Set colAdaptersConf = objWMIService.ExecQuery _
                        ("Select * from Win32_NetworkAdapterConfiguration")
                For Each objAdapterConf in colAdaptersConf
 
                        If (objAdapter.Manufacturer<>"Microsoft") AND (objAdapter.Caption = objAdapterConf.Caption) Then
                                report = report & "==> Configurations de la carte réseau <==" & vbcrlf
 
                                report = report & "- Adresse IP: " & objAdapterConf.IPAddress & vbcrlf
                                report = report & "- Masque de sous-réseau: " & objAdapterConf.IPSubnet & vbcrlf
                                report = report & "- Le DHCP (Attribution automatique d'une adresse IP par un serveur DHCP) est-il activé:" & vbCrLf
                                report = report & objAdapterConf.DHCPEnabled & vbcrlf
                                report = report & "- Serveur DHCP: " & objAdapterConf.DHCPServer & vbcrlf
                                report = report & "- Serveur(s) DNS: " & objAdapterConf.DNSServerSearchOrder & vbcrlf
 
                        End If
 
                Next
 
 
        End If
 
Next
report = report & "- - - - - -" & vbcrlf
report = report & "Si vous ne pouvez naviguer et que les configurations IP semblent correctes," & vbcrlf
report = report & "vous pouvez essayer l'utilitaire WinsockFix.exe =>" & vbcrlf
report = report & "http://www.google.ca/search?hl=fr&rls=GGLD%2CGGLD%3A2004-30%2CGGLD%3Afr&q=winsockfix.exe+download&btnG=Rechercher&meta=" & vbcrlf
report = report & "- - - - - -" & vbcrlf
report = report & vbcrlf

Les deux premières lignes du code précédent sont toujours indispensable pour qu'il fonctionne indépendemment de ton autre code.

Mais si tu utilises les deux code dans le même script, alors ne qu'une seule fois c'est deux première ligne.

**koKoTis** · 21/01/2008, 09h58

encore merci

J'ai modifier un peut le code: (pour avoir l'affichage dans une fenêtre):

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
 
For Each objAdapter in colAdapters
 
        If (objAdapter.Manufacturer<>"Microsoft") Then
                wscript.echo "Nom de la carte/adapteur (Caption): " & objAdapter.Caption & vbcrlf _
                           & "Nom de la carte/adapteur: " & objAdapter.Name & vbcrlf _
                           & "Type de la carte/adapteur: " & objAdapter.AdapterType & vbcrlf _
                           & "État actuel: " & objAdapter.Availability & vbcrlf _
                           & "Description: " & objAdapter.Description & vbcrlf _
                           & "Adresse MAC: " & objAdapter.MACAddress & vbcrlf _
                           & "Adresse réseau de la carte: " & objAdapter.NetworkAddresses & vbcrlf _
                           & "Adresse préprogrammée: " & objAdapter.PermanentAddress & vbcrlf _
                           & "Nom du fabricant: " & objAdapter.Manufacturer & vbcrlf _
                           & "Nom du produit: " & objAdapter.ProductName & vbcrlf _
                           & "Nom de service: " & objAdapter.ServiceName & vbcrlf _
                           & "Vitesse maximale: " & objAdapter.MaxSpeed & vbcrlf _
                'If (objAdapter.Speed = 0) Or (objAdapter.Speed = "") Then
                '        report = report & "- Bande passante actuelle: Non-disponible ou si faible qu'elle indique 0" & vbcrlf
                'Else
                '        report = report & "- Bande passante actuelle: " & objAdapter.Speed & vbcrlf
                'End If
                'report = report & "- Date de la dernière réinitialisation: " & objAdapter.TimeOfLastReset & vbcrlf
 
                Set colAdaptersConf = objWMIService.ExecQuery _
                        ("Select * from Win32_NetworkAdapterConfiguration")
                For Each objAdapterConf in colAdaptersConf
 
                        If (objAdapter.Manufacturer<>"Microsoft") AND (objAdapter.Caption = objAdapterConf.Caption) Then
                                report = report & "==> Configurations de la carte réseau <==" & vbcrlf
 
                                wscript.echo "Adresse IP: " & objAdapterConf.IPAddress & vbcrlf _
                                           & "Masque de sous-réseau: " & objAdapterConf.IPSubnet & vbcrlf _
                                           & "Le DHCP (Attribution automatique d'une adresse IP par un serveur DHCP) est-il activé:" & vbCrLf _
                                           & objAdapterConf.DHCPEnabled & vbcrlf _
                                           & "Serveur DHCP: " & objAdapterConf.DHCPServer & vbcrlf _
                                           & "Serveur(s) DNS: " & objAdapterConf.DNSServerSearchOrder & vbcrlf _
 
                        End If
 
                Next
 
 
        End If
 
Next

Mais j'ai cette erreur:

**ced600** · 21/01/2008, 10h54

Code :

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

strComputer = "."

En première ligne

**koKoTis** · 21/01/2008, 11h05

encore merci

le script fonctione mais il renvoie cette erreur a la fin:

**ced600** · 21/01/2008, 11h36

Avec les _ je me perds dans les compte, c'est koi la ligne 34 ?

**RadPAT** · 21/01/2008, 11h46

Salut,

tu as le scriptomatic de crosoft qui te fait tout ca et te génère le code qui va bien en VBS, Python JScript ou Perl, juste à toi de te placer dans la bonne classe WMI :

Code :

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

http://www.microsoft.com/downloads/details.aspx?familyid=09dfc342-648b-4119-b7eb-783b0f7d1178&displaylang=en

A++

**koKoTis** · 21/01/2008, 11h48

Envoyé par ced600

Avec les _ je me perds dans les compte, c'est koi la ligne 34 ?

de cette ligne tu parle ?

Code :

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

                                wscript.echo "Adresse IP: " & objAdapterConf.IPAddress & vbcrlf _

Le _ c'est pour pouvoir aller a la ligne dans le script dans le même wscript.echo, mais j ne croi pas que c'est ce que tu veut savoir, si ?

**koKoTis** · 21/01/2008, 11h50

Envoyé par RadPAT

Salut,

tu as le scriptomatic de crosoft qui te fait tout ca et te génère le code qui va bien en VBS, Python JScript ou Perl, juste à toi de te placer dans la bonne classe WMI :

Code :

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

http://www.microsoft.com/downloads/details.aspx?familyid=09dfc342-648b-4119-b7eb-783b0f7d1178&displaylang=en

A++

merci

mais je ne connait rien au classes WMI

**RadPAT** · 21/01/2008, 11h55

Envoyé par koKoTis

merci

mais je ne connait rien au classes WMI

et quand tu fais :

Code :

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

1
2
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")

c'est quoi à ton avis ?

C'est pas grave télécharge le bouzin et dans la listbox de gauche de scriptomatic, choisis "Win32_NetworkAdapter" puis cliques sur le bouton "Run" et la lumière viendra vers toi

A++

**koKoTis** · 21/01/2008, 11h57

merci je regarderai ca se soir

**ced600** · 21/01/2008, 12h59

Bha je voulais savoir à koi correspond la ligne de l'erreur, j'ai du mal à compter !!!

WMI est Windows Management Instrumentation, c'est des classes misent à disposition pour faire un tas de truc comme obtenir une adresse IP.
Bref tu l'utilises depuis départ quasiment dans les script.
Je n'ai juste jamais prononcé le mot, car vu qu'il te manque quelque base, j'avais peur de te perdre

Afficher des information sur le PC

VBScript

Discussions similaires

Partager

Partager