gulthaw Posted October 14, 2008 Share Posted October 14, 2008 (edited) Hi,I wanted to contribute with an script i had to create for work.Since it was based on a script found in these forums (http://www.autoitscript.com/forum/index.ph...l+administrator) I want to give my two cents $strComputer = @ComputerName $user = @UserName $dirTmp = "\\server\folder" $CadArxiu = $dirtmp & "\file.txt" $arxiu = FileOpen($CadArxiu, 1) Local $colUsers, $sTmp, $Array[1] = ["user"] $colUsers = ObjGet("WinNT://" & @ComputerName) If IsObj($colUsers) Then $colUsers.Filter = $Array For $objUser In $colUsers if $objUser.Name = "Administrador" Then ;Account disabled? If $objUser.AccountDisabled Then MsgBox(0,"Tittle","Account disabled") $objUser.AccountDisabled = False EndIf $objUser.SetPassword("newpassadmin") $objUser.setInfo FileWriteLine($arxiu, $strComputer) EndIf Next EndIf FileClose($CadArxiu)This scripts checks if the local admin user is enabled, if not it will enable it (i'm not sure if this phrase is right, sorry my english :S ) and changes the password to "newpassadmin".After that, adds a line to the file.txt located in \\server\folder so we can check what machines have changed the local admin password.Hope it helps NOTE (*edit*): The script is currently not working in Windows Vista business; no matter if the user who runs it is local admin or not. Working on it Edited October 15, 2008 by gulthaw Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now