in
Welcome to WSS-ID Community Sign in | Join | Help

Mereset password administrator lokal dari active directory

Last post 07-18-2008 13:17 by arlanda. 1 replies.
Page 1 of 1 (2 items)
Sort Posts: Previous Next
  • 07-18-2008 11:00

    Mereset password administrator lokal dari active directory

    salam kenal semua

    kira - kira bisa tidak mengatur / mereset password administrator lokal dari active directory. kalau password user domain sudah pasti bisa dikontrol active directory. nah kalo password komputer lokal bisa gak yah? ^ ^

     

    thanks  

  • 07-18-2008 13:17 In reply to

    • arlanda
    • Top 10 Contributor
    • Joined on 10-30-2007
    • Jakarta
    • Posts 97

    Re: Mereset password administrator lokal dari active directory

    Bisa pak,
    pakai script, kita bisa rename administrator localnya dan juga reset passwordnya.


    Group Policy Logon Scripts:

    ' Script Begin
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where LocalAccount = True And Name =
    'Administrator'")
    For Each objAccount in colAccounts
    objAccount.Rename "NewAdmin"
    Next

    Dim WshShell, oExec
    Password ="P@ssw0rd"
    strCommand = "net user NewAdmin " & Password
    Set WshShell = CreateObject("WScript.Shell")
    Set oExec = WshShell.Exec(strCommand)
    Do While oExec.Status = 0
    WScript.Sleep 100
    Loop
    ' Script End

    Where the new administrator name is "NewAdmin" and the new password is "P@ssw0rd"

    Gunakan sesuai kebutuhan, atau cari model script lain di internet.
    Semoga membantu.

    Best Regards,
    Arfan Arlanda
Page 1 of 1 (2 items)
Copyright © WSS-ID, 2006. All rights reserved.
Powered by Community Server (Commercial Edition), by Telligent Systems