用于启用和重命名本地管理员帐户的 VBS答案

【问题标题】：A VBS to enable and rename local admin account用于启用和重命名本地管理员帐户的 VBS
【发布时间】：2016-11-16 06:34:07
【问题描述】：

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

sPwd = "hsc1234"

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
     MsgBox objAccount.Name
     objAccount.Disabled = False
     objAccount.Rename("HSC1")
     objAccount.SetPassword(sPwd)     

Next

【问题讨论】：

objAccount.Rename("HSC1") 返回一个状态码，它是什么。 msgbox objAccount.Rename("HSC1")
谢谢，我怎么才能得到状态码？
我没有把它放在我的评论中。不要回复。你应该是一名程序员。
哇，抱歉，我没有看到您的评论。返回码是 9
msdn.microsoft.com/en-us/library/aa393062(v=vs.85).aspx。将 wscript 放入 WinDbg 并获取 API 异常代码。在这里查看我的答案stackoverflow.com/questions/38148571/vb6-debugging-compiled

标签： vbscript

【解决方案1】：

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

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 & "\root\cimv2")
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

【讨论】：