Discussion :

[stefanelle]

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 :

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

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

[stefanelle]

Re bonjour

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

Code :

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

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")