vbs自动添加机器到域脚本

[ 1725 查看 / 0 回复 ]

返回列表
发新话题 回复该主题
梦想成真
头像

梦想成真

  • 管理员
  • 728
  • 8073
  • 2010-05-17
2010-05-20 10:38 |只看楼主 1#
t T
  1. On Error Resume Next

  3. Const JOIN_DOMAIN = 1
  4. Const ACCT_CREATE = 2
  5. strComputer = "."
  6. strDomainName = "rdgad.opentide.com.cn"

  8. Set objWMIService = GetObject("winmgmts:" _
  9. & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  10. Set colCompSystems = objWMIService.ExecQuery _
  11. ("SELECT * FROM Win32_ComputerSystem")

  13. For Each objCompSystem In colCompSystems
  14.   WScript.Echo VbCrLf & "Computer Name: " & LCase(objCompSystem.Name)
  15.   WScript.Echo "  Domain - Before: " & LCase(objCompSystem.Domain)
  16.   intJoinDomain = objCompSystem.UnJoinDomainOrWorkGroup(,,0)
  17.   intJoinDomain = objCompSystem.JoinDomainOrWorkgroup(strDomainName,"password",strDomainName & "\" & "adddomain",NULL, _
  18.   JOIN_DOMAIN + ACCT_CREATE)
  19.   If intJoinDomain = 0 Then
  20.     WScript.Echo "    Joined computer to " & strDomainName & " domain."
  21.   ElseIf intJoinDomain = 1 Then
  22.     WScript.Echo "    Joined computer to " & strDomainName & " domain." & _
  23.     VbCrLf & "    Must reboot."
  24.   Else
  25.     WScript.Echo "    Unable to join computer to " & strDomainName & _
  26.     " domain."
  27. WScript.Echo "Return value of JoinDomainOrWorkgroup method: " & intJoinDomain
  28.   End If
  29. Next

  31. WScript.Echo VbCrLf & String(80, "-")

  33. Set colCompSystems = objWMIService.ExecQuery _
  34. ("SELECT * FROM Win32_ComputerSystem")

  36. For Each objCompSystem In colCompSystems
  37.   WScript.Echo VbCrLf & "Computer Name: " & LCase(objCompSystem.Name)
  38.   WScript.Echo "  Domain - After: " & LCase(objCompSystem.Domain)
  39.   intDomainRole = objCompSystem.DomainRole
  40.   Select Case intDomainRole
  41.     Case 0 strDomainRole = "Standalone Workstation"
  42.     Case 1 strDomainRole = "Member Workstation"
  43.     Case 2 strDomainRole = "Standalone Server"
  44.     Case 3 strDomainRole = "Member Server"
  45.     Case 4 strDomainRole = "Backup Domain Controller"
  46.     Case 5 strDomainRole = "Primary Domain Controller"
  47.     Case Else strDomainRole = "Cannot determine domain role."
  48.   End Select
  49.   WScript.Echo "  Domain Role: " & strDomainRole
  50. Next
复制代码
分享 转发
TOP
返回列表
上一主题 | 下一主题