自动加入域

zyx

哪位能够提供一个 pc 机自动加入域的AU3代码呀。

renren

无语`，自己`写个 最傻瓜化的`模拟 操作来`加入   貌似`没什么`函数`  或 可以 试下  NETDOM        这个 微软的KB 有解释

zyx

以下是vbs 代码，au3是否可以同样实现呢

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   = "domain"
strPassword = "password"
strUser     = "user"
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 "计算机加入域完成！按确定后重新启动电脑！"
set   ws=wscript.createobject("wscript.shell")   
  ws.run   "shutdown   -r -t 0",0

liongodmien

可以改成ＡＵ３的，变量声明部分可以直接复制过去，其它的稍改一下就行

sxd

用 Extras\Send2A3X下的 vbs2au3    转换完了 还是要自己改一下  不是很完美

wangwen916

加个RUN,
直接编译成AU3...