Dim strComputer, objUser, strUser, strPassword Dim WSHShell Dim vUSERDOMAIN, vCOMPUTERNAME Dim AdminNameFound 'Definition du nouveau mot de passe du compte administrateur strPassword = "Password" Set WSHShell = CreateObject("WScript.Shell") vUSERDOMAIN = WSHShell.ExpandEnvironmentStrings("%USERDOMAIN%") vCOMPUTERNAME = WSHShell.ExpandEnvironmentStrings("%COMPUTERNAME%") 'strComputer = "." strComputer = vCOMPUTERNAME Wscript.echo "strComputer : " & strComputer strUser = "Administrator" AdminNameFound = 0 Err.Clear On Error Resume Next Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser) If Err.Number = 0 Then AdminNameFound = 1 Else strUser = "Administrateur" Err.Clear On Error Resume Next Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser) If Err.Number = 0 Then AdminNameFound = 1 End If If AdminNameFound = 1 Then 'Deverrouillage preventif du compte Err.Clear objUser.IsAccountLocked = False objUser.SetInfo Wscript.echo "Erreur ? : " & Err.number On Error GoTo 0 Set objUser = Nothing 'Modification du mot de passe strDomain = strComputer On Error Resume Next Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPassword, "MS_409", "ntlmdomain:" + strDomain) NumeroErreur = Err.Number On Error GoTo 0 Wscript.echo "Modification du mot de passe de " & strUser & " ? : " & Err.number If NumeroErreur = 0 Then 'Test End If Set objSWbemServices = Nothing Set objSWbemLocator = Nothing Else Wscript.echo "Admin account name not found" End If Set WSHShell = Nothing