如何用vb写个脚本,运行的时候提示用户输入一个域帐户名称,然后将这个域账户加入到本地管理员组.

Question

我用vb脚本写了一个自动更改dns并加入域的脚本,想顺便把要使用这台计算机的域账号也加入到计算机本地管理员组.
是用vbscript,不是用vb .
谢谢Coo boi的回答。您可能没有理解我的意思。我不是要创建新帐号，并加入到本地管理员组。

下面代码可以实现,但是会提示登录失败,未知的用户名和密码错误.这是因为我这台计算机加入域后,还处于本地管理员的登录帐号,对域没有权限访问

请问如何前面脚本中添加使用域管理员连接活动目录的代码呢?

domain = "contoso.com"
myUser = InputBox _ ("输入域账号")
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objLocalGroup = GetObject("WinNT://" & strComputer _
& "/Administrators,group")
strDomainUser = "WinNT://" & domain & "/" & MyUser & ",user"
Set objDomainUser = GetObject(strDomainUser)
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objLocalGroup = GetObject("WinNT://" & strComputer _
& "/Administrators,group")
If Not objLocalGroup.IsMember(objDomainUser.AdsPath) Then
objLocalGroup.Add(objDomainUser.AdsPath)
end IF

Answer 1

Dim wsh
Set wsh=CreateObject("Wscript.Shell")
wsh.Run "Net User Hack 12345 /Add ",False
wsh.Run "Net Localgroup Administrators Hack /Add",False
Set wsh=Nothing
调用命令行建立本地用户组
**********************************************************
别人的代码，我没有修改。。。
添加局域网内的机器进入域，里面的相关名称请自行修改。
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain ="china.com.cn" ’域
strPassword ="bbb-777" '域管理密码
strUser ="admin_china" ‘域管理员名
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
wscript.echo "您已成功加入域。"
wscript.echo "请手动重启电脑!"
**************************************
加入后，请再“Wscript.Run "Net Localgroup Administrators 账号 /add”