打印

[求助] 如何自動加入domain(客戶端有win2000和xp)的腳本

本主题由 mwpq 于 2008-1-7 11:06 关闭

如何自動加入domain(客戶端有win2000和xp)的腳本

如題,之前小弟有看到xp版本通過的domain2 E2 k9 q1 l4 N1 w, L
. h, {. x, M% a% q8 L
如果客戶端有混合環境怎麼辦理,還請各位大蝦指點

TOP

你说的太笼统了,你是说在客户端执行的脚本还是在DC端执行的脚本?
我说了我不想哭,可是你为什么老下雨~~~

TOP

2000和XP不算混合环境
我说了我不想哭,可是你为什么老下雨~~~

TOP

各位大哥,我說的是針對客戶端!4 o) A* H9 F9 @" q
客戶端有win2000 Pro和XP
1 P I t3 L8 y y( A
! r6 b, z- ^; L; {6 h6 t每次都要手動加
- T$ C1 c( z; w! a; z+ c; ^' w9 d) y! g0 m% Y
能不能直接點擊腳本加domain!

TOP

应该可以,我试试看
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

这个不是我写的,是本区已经有的

作者是SZWW# r: [5 \7 Z/ [. f' E R
地址在:http://sharecenter.net/thread-144569-1-1.html
复制内容到剪贴板
代码:
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 = "yourdomainname"

'domain需更改为自己域的名称

strPassword = "youradminPASS"

'有domain admins组权限的用户及密码

strUser = "ADMINUSERNAME"

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 "The command completed successfully."

wscript.echo " Pls. Reset Your Computer!"
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP