Serveur distant

Question

Bonjour tout le monde 

J'a repris un des scripts proposé pour changer le nom de mon pc. Lors de l&#8217;exécution j'ai comme erreur le serveur distant n'existe pas ou n'est pas disponible 'GetObject'. 


strComputer = hostname
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
    err = ObjComputer.Rename("test")
next

Est-ce que quelqu'un aurait une idée ? Je viens de débuter en vbs et je rame. D'avance merci

cs_Jack · Answer

Salut

J'y connais rien en base de registres (BdR), peut-être un problème d'accès lié à la sécurité.
Ta machine distante est-elle paramétrée pour accepter une connexion externe à sa BdR ?
Quel Windows ?

J'ai trouvé cette autre syntaxe sur le net :
Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate,(Security)}!\" _
        & strComputer & "\root\cimv2")

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Sous XP, il faut que le service "Accès à distance au Registre" soit démarré et je pense qu'au niveau du pare-feu (Windows ou logiciel), il doit falloir paramétrer quelque chose.

cs_Kafilongo · Answer

je voudrais avoir les codes vb6 ou vbscript me permettant de me connecter a un serveur distant par ligne telephonique (modem). Ma base des donnees est en ms access. Merci d'avance

Serveur distant

3 réponses

Votre réponse

Discussions similaires