Lokalen Administrator - Aktivieren

  • VBScript

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von xtts02.

    Lokalen Administrator - Aktivieren

    Hallo zusammen,

    ich möchte den lokalen Administrator aktivieren via VB Scripting. Aber es funktioniert eifnach nicht.
    Was mache ich falsch:

    Visual Basic-Quellcode

    1. ' ChangePassword.vbs
    2. ' Sample VBScript to force a user to change password at next logon
    3. ' -----------------------------------------------'
    4. Option Explicit
    5. Dim objOU, objUser, objRootDSE, objShell
    6. Dim strContainer, strDNSDomain, strPassword
    7. Dim intCounter, intAccValue, intPwdValue
    9. ' Bind to Active Directory Domain
    10. Set objRootDSE = GetObject("LDAP://RootDSE")
    11. strDNSDomain = objRootDSE.Get("DefaultNamingContext")
    13. ' -----------------------------------------------'
    14. ' Important change OU= to reflect your domain
    15. ' -----------------------------------------------'
    16. strContainer = "OU=Accounts, "
    17. strPassword = "P@ssw0rd"
    18. strContainer = strContainer
    20. ' Here is where we set the value to enable the account
    21. ' 512 = Enable, 514 = Disable.
    22. intAccValue = 512
    24. ' Here we force a change of password at next logon
    25. 'intPwdValue = 0
    27. ' Loop through OU=, setting passwords for all users
    28. set objOU =GetObject("LDAP://" & strContainer )
    29. For each objUser in objOU
    30. If objUser.class="user" then
    31. objUser.SetPassword strPassword
    32. objUser.Put "userAccountControl", intAccValue
    33. 'objUser.Put "PwdLastSet", intPwdValue
    34. objUser.SetInfo
    35. End If
    36. Next
    37. ' Optional section to launch Active Directory Uses and Computers
    38. Set objShell=CreateObject("WScript.Shell")
    39. objShell.Run "%systemroot%\system32\dsa.msc"
    41. WScript.Quit
    43. ' End of example: Change Password at next logon VBScript



    PS: Ich habe keinen AD. Ich möchte nur den Lokalen Administrator auf meinem PC aktivieren und ein Passwort mit Test123 setzten.
    Quelle: computerperformance.co.uk/vbsc…ipt_useraccountcontol.htm

    :?: :?:

    Vielen dank...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „bk__“ ()

    Eben nichts.

    Ich füge zuerst diesen Code in die .vbs datei ein, welche ich anschliessend ausführe. Jedoch, nachdem ich dies ausgeführt habe .. passiert nichts... bzw. nicht das, was ich möchte:


    ich möchte den lokalen Administrator aktivieren via VBs. Aber es funktioniert eifnach nicht.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „bk__“ ()

    bk__ schrieb:

    Hallo zusammen,

    ich möchte den lokalen Administrator aktivieren via VB Scripting. Aber es funktioniert eifnach nicht.
    Was mache ich falsch


    Versuchs mal mit:

    Visual Basic-Quellcode

    1. set WshShell = WScript.CreateObject("WScript.Shell")
    2. 'Das Admin Konto aktivieren
    3. WshShell.Run "net.exe user ""Administrator"" /active:yes", 7 , True
    4. 'Das Admin Password setzen.
    5. WshShell.Run "net.exe user ""Administrator"" ""Password""", 7 , True

    Vielen dank für deine Antwort NscMike.


    Dein Code funktioniert erst dann, wenn ich die CMD mit Administratoren Rechte gestartet habe, dann den Scriptpfad in die CMD eingebe, damit er dies von dort aus ausführt. Doch ich möchte mir diese Klicks sparen. Ich setzte viele Rechner auf und möchte dies gerne automatisiert haben. Wie könnte dies doch funktionieren? Hättest du noch eine Idee?


    Vielen Dank nochmals,
    Gruss BK