VBScript脚本添加到域

find

1. Const JOIN_DOMAIN = 1
   
2. Const ACCT_CREATE = 2
   
3. Const ACCT_DELETE = 4
   
4. Const WIN9X_UPGRADE = 16
   
5. Const DOMAIN_JOIN_IF_JOINED = 32
   
6. Const JOIN_UNSECURE = 64
   
7. Const MACHINE_PASSWORD_PASSED = 128
   
8. Const DEFERRED_SPN_SET = 256
   
9. Const INSTALL_INVOCATION = 262144
   
10. 
    
11. strDomain = "test"
    
12. strPassword = "Password1"
    
13. strUser = "administrator"
    
14. 
    
15. Set objNetwork = CreateObject("WScript.Network")
    
16. strComputer = objNetwork.ComputerName
    
17. 
    
18. Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\" & _
    
19.     strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
    
20.         strComputer & "'")
    
21. 
    
22. ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
    
23.     strPassword, strDomain & "" & strUser, NULL, _
    
24.         JOIN_DOMAIN + ACCT_CREATE)
    
25. 
    
26. 
    
27. ' wait
    
28. WScript.Sleep(1000)
    
29. ' restart
    
30. Set objWMIService = GetObject("winmgmts:" _
    
31.     & "{impersonationLevel=impersonate,(Shutdown)}!\" & _
    
32.         strComputer & "\root\cimv2")
    
33. Set colOperatingSystems = objWMIService.ExecQuery _
    
34.     ("Select * from Win32_OperatingSystem")
    
35. For Each objOperatingSystem in colOperatingSystems
    
36.     objOperatingSystem.Reboot()
    
37. Next

复制代码

http://bjyizhang.blog.51cto.com/113024/660608