Par GPO non pas à ma connaissance (tu peux le renommer).
Par script oui :
Tu crées un fichier C:\computers.txt et tu mets la liste de tes postes
Tu créés ce fichier
ResetADM.vbs
' --------------------------------------------------------
' VARIABLE
' --------------------------------------------------------
Option Explicit
Dim strFile
Dim objFSO, objTS, strComputer
' --------------------------------------------------------
' Fichier à utiliser
' --------------------------------------------------------
strFile = "C:\computers.txt"
' --------------------------------------------------------
' Script
' --------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFile) Then
Set objTS = objFSO.OpenTextFile(strFile)
Do Until objTS.AtEndOfStream
strComputer = objTS.ReadLine
If TestPing(strComputer) Then
On Error Resume Next
Dim objAdmin
Set objAdmin = GetObject("WinNT:\\" & strComputer & "\Administrator,user")
If Err = 0 Then
objAdmin.SetPassword "P@ssw0rd!"
objAdmin.SetInfo
Else
WScript.Echo strComputer & " skipped: " & Err.Description
End If
On Error GoTo 0
End If
Loop
End If
objTS.Close
WScript.Echo "Fini"
' --------------------------------------------------------
' Fonctions
' --------------------------------------------------------
Function TestPing(sName)
Dim cPingResults, oPingResult
Set cPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery("SELECT * FROM Win32_PinStatus WHERE Address = '" & sName & "'")
For Each oPingResult In cPingResults
If oPingResult.StatusCode = 0 Then
TestPing = True
Else
TestPing = False
End If
Next
End Function
' --------------------------------------------------------
' Fin du script
' --------------------------------------------------------
cdlt,
Ludo
http://ludovikdopierala.blogspot.com
