MCSE技术论坛

[code]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  = 域名
strPassword = 密码
strUser    = 用户名
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)[/code]

在虚拟机中能 用吗

这个东西不错

看不懂啊

是在用户的计算机上执行是吧！！

谢谢啦，正需要

有沒有退出網域的脚本

今天我试了一下好像不行，什么反应也没有．是否运行这个脚本要有什么条件，

strDomain  = "域名"
strPassword = "密码
strUser    = "用户名"

这几项的变量要自己填写的。这个脚本要是加入input方法，让用户自行输入就方便了。

微软脚本中心有这个脚本的相关资料

不错.......

现在看不懂
得加紧学习

在WINDOWS 2008中不能运行.

把楼主的贴子加了注释，并加入了重启，楼主不介意吧。

'*把你的计算机加入域*
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  = "rybb.com"
'有domain admins组权限的用户及密码
strPassword = "Password"
strUser    = "domainadm"
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)

'加入域后，必须重起计算机
Set objShell = CreateObject("Wscript.Shell")
return=MsgBox ("加入域后，必须重起计算机才能生效！",vbokcancel+vbexclamation,"注意！")
                If return=vbok Then
                        objShell.run("Shutdown.exe -r -t 0")
                End if

有了注释，就更清楚了

个人认为不太安全.
在脚本中要写入Domain Admin的帐号和密码,而且脚本是可读的,这不是等于把管理员的密码都泄露了阿?
我记得微软是允许普通用户自己可以加入域的,只是次数有限.
hehe...能不能指定把我的计算机帐号加入某个特殊的OU呢?这个OU在脚本中指定我觉得没问题的

一定要把脚本技术学好啊

good!!!!!!!!!!!!

依然是看懂，有写脚本的教程吗？

同16楼 怎么可以把adm的用户名和密码都泄露了呢？ 普通用户就有权限加入域的

谢谢分享

支持16楼的说法，泄露了管理员的用户名和密码，后果难以估计。

个人对前面的那几断数据不是很明白，能否有高人解释一下？
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

这些数值是约定好的吗？

脚本运行和虚拟机物理机么有关系！

:default6: :default6:

这个东西不错，呵呵，不用搞来搞去那么烦

顶一下,是个好东西.