Discussion :

[TurTon]

Bonjour,
Pour mon travail j'aurais besoin de récupérer le nom de la session ouverte sur un pc distant afin de créer un répertoire du même nom sur un lecteur réseau pour copier des fichiers par la suite mais je bloque dés le début voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
strComputer = "PCDISTANT"
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
 
For Each objItem in colItems
    arrName = Split(objItem.UserName, "\")
    Wscript.Echo "Name: " & arrName(1)
Next

exécuté avec les droits d'un utilisateur administrateur du domaine, j'obtiens le message d'erreur suivant: "Le serveur n'existe pas ou n'est pas disponible: 'GetObject' "

J'ai testé nombreuses solutions toujours en vain... exemple:

Code :

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

1
2
3
4
5
6
strComputer = "."
UserName = ""
Password = ""
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_Registry",,48)

En renseignant la clé de registre et l'administrateur du domaine même résultat... d'ailleurs j'ai abandonnée cette méthode pour des raisons de sécurité.

Si quelqu'un a une idée ou une autre méthode je suis preneur!!

[ced600]

sur ce pc distant, es tu capable en local de lancer ton script ? (mettre . dans strComputer )

[TurTon]

En effet j'ai oublié l'idée d'attaquer le pc par le réseau, je lance maintenant le script en local ce qui règle les problèmes de permissions, voila un bout du code au final:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
 
For Each objItem in colItems
    arrName = Split(objItem.UserName, "\")
Next
 
strUser = arrName(1)

Problème résolu même si cela ne règle pas l'idée de base...

[ced600]

Donc dans sur ton pc distant tout ce qu'il te manque à mon avis, c'est que les services d'accés à distance ne sont pas lancés. J'ai oublié leur nom.

Un test simple pour voir si c'est le cas, tu te connectes à distance via le bureau à distance sur le pc qui te pose problème.