如何使用ADSI和WSH脚本查找域中FSMO角色持有者
来源:互联网 发布:淘宝用户名可以注销吗 编辑:程序博客网 时间:2024/05/22 13:50
要使用此脚本文件,将下列代码存为Find_FSMO.vbs文件
下列代码使用vbs脚本:
Option ExplicitDim WSHNetwork, objArgs, ADOconnObj, bstrADOQueryString, RootDom, RSObjDim FSMOobj,CompNTDS, Computer, Path, HelpTextSet WSHNetwork = CreateObject("WScript.Network")Set objArgs = WScript.ArgumentsHelpText = "This script will find the FSMO role owners for your domain." & Chr(13) &_ Chr(10) & "The syntax is as follows:" & Chr(13) & Chr(10) &_ "find_fsmo DC=MYDOM,DC=COM" & Chr(13) & Chr(10) &_ """Where MYDOM.COM is your domain name.""" & Chr(13) & Chr(10) & "OR:" &_ Chr(13) & Chr(10) & "find_fsmo MYDCNAME " & Chr(13) & Chr(10) &_ """Where MYDCNAME is the name of a Windows 2000 Domain Controller"""Select Case objArgs.Count Case 0 Path = InputBox("Enter your DC name or the DN for your domain"&_ " 'DC=MYDOM,DC=COM':","Enter path",WSHNetwork.ComputerName) Case 1 Select Case UCase(objArgs(0)) Case "?" WScript.Echo HelpText WScript.Quit Case "/?" WScript.Echo HelpText WScript.Quit Case "HELP" WScript.Echo HelpText WScript.Quit Case Else Path = objArgs(0) End Select Case Else WScript.Echo HelpText WScript.QuitEnd SelectSet ADOconnObj = CreateObject("ADODB.Connection")ADOconnObj.Provider = "ADSDSOObject"ADOconnObj.Open "ADs Provider"'PDC FSMObstrADOQueryString = ";(&(objectClass=domainDNS)(fSMORoleOwner=*));adspath;subtree"Set RootDom = GetObject("LDAP://RootDSE")Set RSObj = ADOconnObj.Execute(bstrADOQueryString)Set FSMOobj = GetObject(RSObj.Fields(0).Value)Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)Set Computer = GetObject(CompNTDS.Parent)WScript.Echo "The PDC FSMO is: " & Computer.dnsHostName'Rid FSMObstrADOQueryString = ";(&(objectClass=rIDManager)(fSMORoleOwner=*));adspath;subtree"Set RSObj = ADOconnObj.Execute(bstrADOQueryString)Set FSMOobj = GetObject(RSObj.Fields(0).Value)Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)Set Computer = GetObject(CompNTDS.Parent)WScript.Echo "The RID FSMO is: " & Computer.dnsHostName'Infrastructure FSMObstrADOQueryString = ";(&(objectClass=infrastructureUpdate)(fSMORoleOwner=*));adspath;subtree"Set RSObj = ADOconnObj.Execute(bstrADOQueryString)Set FSMOobj = GetObject(RSObj.Fields(0).Value)Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)Set Computer = GetObject(CompNTDS.Parent)WScript.Echo "The Infrastructure FSMO is: " & Computer.dnsHostName'Schema FSMObstrADOQueryString = ";(&(objectClass=dMD)(fSMORoleOwner=*));adspath;subtree"Set RSObj = ADOconnObj.Execute(bstrADOQueryString)Set FSMOobj = GetObject(RSObj.Fields(0).Value)Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)Set Computer = GetObject(CompNTDS.Parent)WScript.Echo "The Schema FSMO is: " & Computer.dnsHostName'Domain Naming FSMObstrADOQueryString = ";(&(objectClass=crossRefContainer)(fSMORoleOwner=*));adspath;subtree"Set RSObj = ADOconnObj.Execute(bstrADOQueryString)Set FSMOobj = GetObject(RSObj.Fields(0).Value)Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)Set Computer = GetObject(CompNTDS.Parent)WScript.Echo "The Domain Naming FSMO is: " & Computer.dnsHostName
- 如何使用ADSI和WSH脚本查找域中FSMO角色持有者
- 如何使用ADSI和WSH脚本查找域中FSMO角色持有者
- 详解FSMO的五种角色和FSMO角色辨别方法及角色转换方法
- FSMO五种角色的作用、查找及规划
- 转贴:FSMO五种角色的作用、查找及规划
- [ZT]FSMO五种角色的作用、查找及规划
- FSMO五种角色的作用、查找及规划
- 在图形用户介面中查看和转移 FSMO 角色
- 域中DC的规划FSMO的原则
- 查看、转移、夺取FSMO角色
- Windows域 FSMO角色介绍
- 什么是 WSH:脚本宿主
- 跟我从头学WSH(5)--理解ADSI
- 使用 Ntdsutil.exe 捕获 FSMO 角色或将其转移到域控制器
- 使用 Ntdsutil.exe 捕获 FSMO 角色或将其转移到域控制器
- [AD]使用Ntdsutil.exe获取FSMO角色或将其转移到域控制器
- HOW TO:在图形用户介面中查看和转移 FSMO 角色
- Windows 2000 Active Directory FSMO角色
- 《struts2权威指南》学习笔记之struts2表单标签
- oracle维护常用sql语句
- 好几天没来了
- 基于Windows 2000 Server的域控制器上的Lsass.exe进程的内存使用量
- 有关Windows 2000 DNS的常见问题
- 如何使用ADSI和WSH脚本查找域中FSMO角色持有者
- smtp协议命令发信
- 将Windows 2000 DNS集成到现有的BIND或基于Windows NT 4.0的DNS命名空间中
- 如何查找FSMO角色担任者(服务器)
- smtp协议手工使用
- eWebEditor 以及FCKeditor 一些取值和设定值的JS函数
- 在Windows 2000域控制器上放置和优化FSMO
- 将Windows 2000和Windows Server 2003群集节点用作域控制器
- 7 reasons I switched back to PHP after 2 years on Rails