[3/01]VBS腳本讓客戶機自動加入到域

'* Start Script

'***********************

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 = "sohu.com"

'domain需更改為自己域的名稱               /＊此行為描述所用*/

strPassword = "dir"

'有domain admins組權限的使用者及密碼       /＊此行為描述所用*/

strUser = "zhang.san"                /＊此行為描述所用*/

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 "請重新開機你的電腦!"

'*****************

'* End Script

注:1、此檔案中以後大家要改的地方就三個(1)sohu.com域名;(2)password密碼;(3)username使用者名;

   2、把此檔案的内容複習儲存為*.vbs就可以使用了。

    3、客戶機的tcp/ip參數設定正确；

    己經在客戶機上測試成功。請大家放心使用