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/
Thứ Bảy, 7 tháng 2, 2009
Đăng ký:
Đăng Nhận xét (Atom)
1 nhận xét:
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.
Đăng nhận xét