vbs remote rename ne fonctionne pas SVP m'aider

[alexdt256]

Sa fais presque 1h que j'essai de faire fonctionner mon script pour renommer les pc mais sa me donne toujours l'erreur: Permission denied: 'GetObject' line 11 char 1

Voici la ligne de l'erreur
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Voici mon script :

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
' Input Section
strComputer =InputBox("Old Name?")
sNew =InputBox("New Name?")
sDomainUser ="MyDomain\" & InputBox("Domain Admin Username") 
sDomainPasswd =InputBox("Password (NOT hidden!)") 
sAdminUser =strComputer & "\administrator" 
sAdminPassword ="MyAdminpassword"
 
' Start Remote Registry
strService = " 'RemoteRegistry' "
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name =" & strService & " ")
For Each objService in colListOfServices
   WSCript.Sleep 1500
   objService.StartService()
Next
WScript.Echo "Started " & strService & " on " & strComputer
 
' Rename strComputer
set oWMILocator = CreateObject("WbemScripting.SWbemLocator")
oWMILocator.Security_.AuthenticationLevel = 6
set oWMIComputer = oWMILocator.ConnectServer(strComputer, "root\cimv2",strComputer & sAdminUser,sAdminPassword)
set oWMIComputerSystem = oWMIComputer.Get("Win32_ComputerSystem.Name='" & strComputer & "'")
 
rc = oWMIComputerSystem.Rename(sNew,sDomainPasswd,sDomainUser)

[ProgElecT]

Salut, bienvenue sur DVP

En ligne 9, peux tu mettre un MsgBox et nous dire ce que tu as exactement dans la variable strComputer

[alexdt256]

Bonjour,

Pour la variable strcomputer elle change différemment de qu'elle ordinateur je veux changer. C'est pour cette raison que j'ai mis inputbox (Ligne 2). Se que je veux c'est que lorsque sur le réseau je veux changer le nom d'un pc je puisse juste partir se vbs, mettre le nom du pc désiré et mes credential.

Merci pour le bienvenue !

[ProgElecT]

Ok

J'ai l'impression qu’après la récupération dans la variable, il te faudrait ajouter quelque chose du genre .\.
Le plus simple est de lire la variable et analyser si l'inclusion dans la ligne de code serait cohérent.

[alexdt256]

En exemple si je placerais Exemp-D-0222 comme variable strcomputer. Je ne crois pas que sa changerais grand chose. Sauf si tu vois quelque chose qui me manquerais

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
' Input Section
strComputer ="Exemp-D-0222"
sNew ="Exemp-Corr"
sDomainUser ="MyDomain\" & "Me"
sDomainPasswd =InputBox("Password (NOT hidden!)") 
sAdminUser =strComputer & "\administrator" 
sAdminPassword ="MyAdminpassword"
 
' Start Remote Registry
strService = " 'RemoteRegistry' "
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Where Name =" & strService & " ")
For Each objService in colListOfServices
   WSCript.Sleep 1500
   objService.StartService()
Next
WScript.Echo "Started " & strService & " on " & strComputer
 
' Rename strComputer
set oWMILocator = CreateObject("WbemScripting.SWbemLocator")
oWMILocator.Security_.AuthenticationLevel = 6
set oWMIComputer = oWMILocator.ConnectServer(strComputer, "root\cimv2",strComputer & sAdminUser,sAdminPassword)
set oWMIComputerSystem = oWMIComputer.Get("Win32_ComputerSystem.Name='" & strComputer & "'")
 
rc = oWMIComputerSystem.Rename(sNew,sDomainPasswd,sDomainUser)