一个VBS，用于启用和重命名本地admin帐户

Question

我正在使用下面的vbs来启用和重命名Admin本地帐户，但失败。它不启用该帐户，也不重命名该帐户。我现在不知道为什么，它看起来像一个简单和容易的脚本。有线索吗?

sPwd = "hsc1234"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colAccounts = objWMIService.ExecQuery _
    ("Select * From Win32_UserAccount Where LocalAccount = True and Name = 'Administrator'")
For Each objAccount in colAccounts
     MsgBox objAccount.Name
     objAccount.Disabled = False
     objAccount.Rename("HSC1")
     objAccount.SetPassword(sPwd)     
Next

Answer 1

好了，我终于有办法了。此解决方案可以启用和重命名管理员帐户，并设置管理员密码。我在W10上的Admin默认帐户遇到了一些问题，所以我不得不在提升模式下推送脚本。

If Not WScript.Arguments.Named.Exists("elevate") ThenCreateObject("Shell.Application").ShellExecute WScript.FullName _
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
  WScript.Quit
End If
sPwd = "hsc1234"
strComputer = "."
sUser = "XXxx"
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colAccounts = objWMIService.ExecQuery("Select * From Win32_UserAccount Where LocalAccount = True and Name = 'Administrator'")
For Each objAccount in colAccounts     
     objAccount.Disabled = False
     objAccount.Put_
     objAccount.Rename sUser
     'objAccount.SetPassword sPwd     
Next

Set oUser = GetObject("WinNT://" & strComputer & "/" & sUser 
oUser.SetPassword sPwd 
oUser.Setinfo