屌丝搜
在AD环境中，查看五大角色的位置
些脚本为几年前在网上收集而来，不记得原作者了，请不要见怪！
大家都知道AD中五大角色的重要性，但在AD环境中，要查看五大角色，分别要进到三个不同的地方去查看，有没有什么方法可以快速查看五大角色分别在域中的位置呢？下面的脚本可以实现此功能！将下面的内容COPY下来，在贴在记事本中，另存为.VBS，只要在加域的任何电脑上执行，都可以看到！
Set objRootDSE = GetObject("LDAP://rootDSE")
Dim text
' Schema Master
Set objSchema = GetObject("LDAP://" & objRootDSE.Get("schemaNamingcontext"))
strSchemaMaster = objSchema.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strSchemaMaster)
Set objComputer = GetObject(objNtds.parent)
text="forest-wide Schema Master FSMO: " & objComputer.Name & vbCrLf
Set objNtds = Nothing
Set objComputer = Nothing
' Domain Naming Master
Set objPartitions = GetObject("LDAP://CN=Partitions," & _
objRootDSE.Get("configurationNamingContext"))
strDomainNamingMaster = objPartitions.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strDomainNamingMaster)
Set objComputer = GetObject(objNtds.Parent)
text=text&"Forest-wide Domain Naming Master FSMO: " & objComputer.Name & vbCrLf
Set objNtds = Nothing
Set objComputer = Nothing
' PDC Emulator
Set objDomain = GetObject("LDAP://" & objRootDSE.Get("defaultNamingContext"))
strPdcEmulator = objDomain.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strPdcEmulator)
Set objComputer = GetObject(objNtds.Parent)
text=text&"Domain's PDC Emulator FSMO: " & objComputer.Name & vbCrLf
Set objNtds = Nothing
Set objComputer = Nothing
' RID Master
Set objRidManager = GetObject("LDAP://CN=RID Manager$,CN=System," & _
objRootDSE.Get("defaultNamingContext"))
strRidMaster = objRidManager.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strRidMaster)
Set objComputer = GetObject(objNtds.Parent)
text=text&"Domain's RID Master FSMO: " & objComputer.Name & vbCrLf
Set objNtds = Nothing
Set objComputer = Nothing
' Infrastructure Master
Set objInfrastructure = GetObject("LDAP://CN=Infrastructure," & _
objRootDSE.Get("defaultNamingContext"))
strInfrastructureMaster = objInfrastructure.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strInfrastructureMaster)
Set objComputer = GetObject(objNtds.Parent)
text=text&"Domain's Infrastructure Master FSMO: " & objComputer.Name & vbCrLf
text=text & vbCrLf &" Design by Johnsonxiang([email protected])"
WScript.Echo text
相关阅读
一个后台的用户角色权限系统总是可以大概划分为三个打的模块的：用户管理、角色管理、权限管理。本文作者将就此三个模块展开叙述，en
2018淘宝互刷qq群最常见的五大弊端是什么?很多朋友想要做淘宝互刷，但是担心淘宝互刷qq群靠不靠谱的问题，为此seo实验室小编特地整理
角色思维，是指我们在执行一项工作或任务的时候，如何清晰明确各自的角色定位，各司其职，在清晰的职责范围内，承担责任，完成工作。缺乏清晰
对于数据库管理员(DBA)来说，保持数据库运行在最佳状态需要具备敏捷，专注，快速反应的能力以及一颗冷静的头脑。数据库几乎是所有应用
商业的本质，就是战争。在11月16日的百度世界大会上，被百度收购的渡鸦发布了智能音箱 Raven H，情感机器人Raven R、智能家居车Raven