modifier un vscript

Bonjour j'ai un petit script en vb qui me permet de modifier le nom d'un compte et par la suite de changer le mot de passe celui fonctionne tres bien sauf que ce script utilise le nom de l'ordi comme paramètre ce que je ne souhaite pas comment faire pour avoir le même script sans prendre en compte le nom de l'ordinateur j'ai enlevé toutes les valeurs correspondant à strComputer mais rien n'y fait

Code:

---

1 2 3 4 5 6 7 8 9

strComputer = "monordi" ' strOldName = "user" ' strNewName = "user25" ' set objComp = GetObject("WinNT://" & strComputer) set objUser = GetObject("WinNT://" & strComputer & "/" & strOldName & ",user") set objNewUser = objComp.MoveHere(objUser.ADsPath, strNewName) Set oUser = GetObject ("WinNT://./user25") oUser.SetPassword ("test")

---

merci à vous

Re bonjour

J'ai trouvé en récupérant le nom de l'ordinateur

Code:

---

1 2 3 4 5 6 7 8 9 10

Set WshNet = CreateObject("Wscript.Network" ) computername = WshNet.ComputerName strOldName = "user" strNewName = "user25" set objComp = GetObject("WinNT://" & computername) set objUser = GetObject("WinNT://" & computername & "/" & strOldName & ",user") set objNewUser = objComp.MoveHere(objUser.ADsPath, strNewName) Set oUser = GetObject ("WinNT://./user25") oUser.SetPassword ("test")

---