Thứ Bảy, 7 tháng 2, 2009

Script Join domain tự động

Việc join domain cho hệ thống gần cả trăm máy tính là một công việc thật là...khủng khiếp phải không các bạn?

Vì vậy, chúng ta cần "tự động hóa" công việc này để tiết kiệm thời gian . Các bạn mở notepad paste đoạn code sau vào, lưu lại với tên là joindomain.vbs

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 = "lecuong.info"

strUser = "administrator"

strPassword = "12345"

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)

Các bạn thay thế :

-"lecuong.info"bằng tên domain của bạn

-"administrator" bằng tên user dùng để join domain

-"12345" bằng password của user dùng join domain

Nguồn http://www.lecuong.info/

1 nhận xét:

Mr.Cuong nói...

Cảm ơn! rất cảm ơn bạn đã để nguồn bài viết! Hôm nay, tình cờ tôi search trên google nên ra blog của bạn!
Nếu có thể, chúng ta có thể liên kết text link với nhau.
Chúc bạn 1 ngày tốt lành.