Afficher des information sur le PC

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/01/2008, 12h41
SfJ5Rpw8

Citation:

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 ..!!
19/01/2008, 12h42
koKoTis
Citation:
Envoyé par imparator_42

Pour Adresse ip :

Code:

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
19/01/2008, 12h42
koKoTis

Citation:

Envoyé par imparator_42

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

la ligne 2 caractére 17
19/01/2008, 12h43
koKoTis

Citation:

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 ?
19/01/2008, 12h48
imparator_42

Excusez moi, je pas fait tres gaffe ,je coryais quon était sur VB6
19/01/2008, 12h51
koKoTis

ok, c'est pas grave, merci quand même ;)
20/01/2008, 14h05
koKoTis

Vous sauriez comment afficher les conections réseau ?
20/01/2008, 19h59
SfJ5Rpw8

Citation:

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 ?
20/01/2008, 20h48
koKoTis

ben le nom des connection quoi

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

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:

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.

encore merci ;)

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

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
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:

http://hebergement-images.voiloo.net...dad5f4bf63.jpg

21/01/2008, 10h54
ced600

Code:

strComputer = "."

En première ligne :mrgreen:
21/01/2008, 11h05
koKoTis

encore merci ;)

le script fonctione mais il renvoie cette erreur a la fin:
http://hebergement-images.voiloo.net...ff47f56aac.jpg
21/01/2008, 11h36
ced600

Avec les _ je me perds dans les compte, c'est koi la ligne 34 ?
21/01/2008, 11h46
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:

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

A++
21/01/2008, 11h48
koKoTis

Citation:

Envoyé par ced600

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

de cette ligne tu parle ?

Code:

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 ?
21/01/2008, 11h50
koKoTis

Citation:

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:

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 :oops:
21/01/2008, 11h55
RadPAT
Citation:

Envoyé par koKoTis

merci ;)

mais je ne connait rien au classes WMI :oops:

et quand tu fais :
Code:

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 :yaisse2:

A++
21/01/2008, 11h57
koKoTis

merci je regarderai ca se soir ;) ;)
21/01/2008, 12h59
ced600

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 :D

Voir 40 message(s) de cette discussion en une page