Petit script VB pour receuillir des informations sur des PC en réseau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Petit script VB pour receuillir des informations sur des PC en réseau

Zboss

Si tu doutes, reboot...

Je profite de ce topic car je suis en train de coder un petit truc en VB pour récupérer des informations sur des machines en réseau :

Code :

strComputer = "."
Set objSWbemServices = GetObject("winmgmts:\\" & strComputer)
Set colSWbemObjectSet = _
objSWbemServices.InstancesOf("Win32_LogicalMemoryConfiguration" )
For Each objSWbemObject In colSWbemObjectSet
Wscript.Echo "Total Physical Memory (kb): " & _
objSWbemObject.TotalPhysicalMemory
Next

Dans cet exemple, je récupère juste des infos sur la mémoire. Enfin bref, en local ça marche très bien, mais si j'essaye sur le réseau (en remplaçant strComputer = "." par strComputer = "SERVEUR" par exemple, serveur étant un nom Netbios valide), j'obtiens l'erreur :

Code :

C:\\Test2\\test.vbs<3,1> Erreur d'exécution Microsoft VBScript: Permission refusée: 'GetObject'

J'ai donc comparé avec le code proposé par l'auteur d'un autre topic, qui apparemment fonctionne :

Code :

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )

, mais à quoi servent le "impersonationLevel=impersonate" et le "\root\cimv2" ? :??:

Si quelqu'un a des pistes concernant la résolution de ce problème, n'hésitez pas .

PS: j'avais fait remonter un vieux topic pour poser ma question, mais vu qu'il a la balise [Résolu] dans son titre, c'était ptet pas une bonne idée :pt1cable: .

Message édité par Zboss le 07-06-2006 à 14:27:32

Publicité

kiki29

http://www.bellamyjc.org/fr/vbscript.html
http://www.activexperts.com/activm [...] /security/
http://search.msdn.microsoft.com/search/

Message cité 1 fois
Message édité par kiki29 le 07-06-2006 à 14:48:01

Zboss

Si tu doutes, reboot...

kiki29 a écrit :

http://www.bellamyjc.org/fr/vbscript.html
http://www.activexperts.com/activm [...] /security/
http://search.msdn.microsoft.com/search/

Merci pour les liens, mais dois-je en conclure que ma question est si évidente ? :??:

Zboss

Si tu doutes, reboot...

:bounce:

Zboss

Si tu doutes, reboot...

Help :??:

Zboss

Si tu doutes, reboot...

J'ai essayé un autre script qui permet de spécifier les logins et mdp du PC auquel on veut se connecter :

Code :

strComputer = "nom_du_PC"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator" )
Set objSWbemServices = objSWbemLocator.ConnectServer _
(strComputer, "root\cimv2", "nom_utilisateur", "mot_de_passe" )
Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_Service" )
For Each objSWbemObject In colSWbemObjectSet
Wscript.Echo "Name: " & objSWbemObject.Name
Next

Ca marche qd j'essaye de me connecter à un PC sous Windows Serveur 2003.
Par contre qd j'essaye de me connecter à des postes sous Windows XP, j'ai le droit au message d'erreur suivant :

"SWbemLocator: Le serveur RPC n'est pas disponible."

J'ai été vérifier dans les services, le service RPC est pourtant démarré :??: .

Des idées sur la cause de ce problème ? :sweat:

toto-solution

Si vous associez à la variable StrComputer="nom_de_l'ordinateur" il faut aller dans C:\%systemroot%\system32\drivers\etc puis ouvrir le fichier "hosts" en modification et y ajouter l'ip de l'ordinateur ainsi que son nom; permettant ainsi à votre machine de faire le lien de l'un vers l'autre si nécessaire.

sinon assigner directement à la variable StrComputer=IP_De_La_Machine a marché dans mon cas.

Amicalement.

Zboss

Si tu doutes, reboot...

Pfiou, merci d'avoir répondu à ma question après 7 ans, mais je dois avouer que je ne sais même plus sur quoi je travaillais à l'époque ^^

---------------
Mario Kart for Ever

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Petit script VB pour receuillir des informations sur des PC en réseau

Sujets relatifs
Lecture de la sortie d'un autre programme petit à petit?	lancer une macro complementaire excel via script vbs
script chat en ligne sans room	Petit soucis PHP et formulaires
Petit soucis avec PHP et phpmyadmin	balise <script> : question à propos des normes W3C & validator
Formule ou script?	Faire un .bat pour une update sur réseau.
debugger (tracer) des script PHP	decomposer une image en le plus petit nombre de rectangles possible
Plus de sujets relatifs à : Petit script VB pour receuillir des informations sur des PC en réseau

Page générée en 0.050 secondes