zyx 发表于 2009-1-16 18:04:35

自动加入域

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

renren 发表于 2009-1-16 21:15:25

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

zyx 发表于 2009-1-19 13:40:15

以下是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 发表于 2009-1-19 15:45:57

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

sxd 发表于 2009-1-19 15:48:21

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

wangwen916 发表于 2009-1-19 16:44:27

加个RUN,
直接编译成AU3...:face (38):
页: [1]
查看完整版本: 自动加入域