[Ivan Bardeen]

Для встроенного администратора - вот startup vbs-скрипт для смены пароля

Код:

On Error Resume Next
Dim Container
Dim ContainerName
Dim User, UsrSID, b
Dim WshNetwork
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
ComputerName=WshNetwork.ComputerName
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & ComputerName & "\root\cimv2")
 
strSelect="Select * from Win32_UserAccount"
 
Set colSystemUsers = objWMIService.ExecQuery (strSelect)
 
For Each objSystemUser in colSystemUsers
If Right(objSystemUser.SID,3)="500" Then
Set objUser = GetObject("WinNT://" & ComputerName & "/" & objSystemUser.Name & ",user")
NewPassword="password"
Call objUser.SetPassword(NewPassword)
Exit For
End If
Next