将計算機加入到域中

說明

将本地計算機加入到域中，然後在 Active Directory 中建立該計算機的帳戶。

支援的平台

Windows Server 2003

是

Windows XP

Windows 2000

否

Windows NT 4.0

Windows 98

腳本代碼

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

MACHINE_PASSWORD_PASSED = 128

Const DEFERRED_SPN_SET = 256

INSTALL_INVOCATION = 262144

strDomain = "FABRIKAM"

strPassword =

"ls4k5ywA"

strUser = "shenalan"

Set objNetwork =

CreateObject("WScript.Network")

strComputer =

objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{

impersonationLevel=Impersonate }!\\" & _

strComputer &

"\root\cimv2:Win32_ComputerSystem.Name='" & _

"'")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain,

_

strPassword, strDomain & "\" & strUser, NULL, _

JOIN_DOMAIN +

ACCT_CREATE)

本文轉自 蘇繁 51CTO部落格，原文連結：http://blog.51cto.com/goxia/221089，如需轉載請自行聯系原作者