邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: [原创]测试服务器是否是GC的脚本 [打印本页]

作者: feitianxiang 时间: 2006-5-22 14:55
标题: [原创]测试服务器是否是GC的脚本
strComputer = "ipcore-sh" 
 
 
Const NTDSDSA_OPT_IS_GC = 1 
 
 
Set objRootDSE = GetObject("LDAP://" & strComputer & "/rootDSE") 
 
strDsServiceDN = objRootDSE.Get("dsServiceName") 
 
Set objDsRoot = GetObject("LDAP://" & strComputer & "/" & strDsServiceDN) 
 
intOptions = objDsRoot.Get("options") 
 
 
If intOptions And NTDSDSA_OPT_IS_GC Then 
 WScript.Echo strComputer & " is a global catalog server." 
 
Else 
 Wscript.Echo strComputer & " is not a global catalog server." 
 
End If 
 
还有很多脚本，如果需要的话，可以留下电子邮件。

作者: feitianxiang 时间: 2006-5-22 15:06
标题: re:我以前是程序员出身，现在转行做IT。所以...
我以前是程序员出身，现在转行做IT。所以，对写脚本很有兴趣，和我同样感兴趣的朋友，可以一起交流，学习。

作者: feitianxiang 时间: 2006-5-23 18:42
标题: re:怎么没人顶啊～～这么好的东东～～
怎么没人顶啊～～ 
这么好的东东～～

作者: dudali88 时间: 2006-5-23 21:30
标题: re:不错，刚好用得上呢
不错，刚好用得上呢

作者: 钉子 时间: 2006-5-24 00:03
标题: re:不错，加精华。Ｐ．Ｓ：此帖将转向Ｗｉ...
不错，加精华。 
Ｐ．Ｓ：此帖将转向Ｗｉｎｄｏｗｓ区。

作者: feitianxiang 时间: 2006-5-24 10:55
标题: re:谢谢钉子版主的大力支持。大家对我的支...
谢谢钉子版主的大力支持。 
大家对我的支持是最大的动力。 
 
以后会陆续发一些脚本上来的。

作者: dream96138 时间: 2006-6-5 12:12
有没有服务器脚本的资料呀

作者: jaffas1101 时间: 2006-6-5 13:45
感谢分享呀！

作者: huanglr 时间: 2006-6-9 16:19
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="架构主机(Schema Master): " & 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&"域命名主机(Domain Naming Master): " & 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&"PDC 仿真器(PDC Emulator): " & 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&"RID 主机(RID Master): " & 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&"結构主机(Infrastructure Master): " & objComputer.Name & vbCrLf

text=text & vbCrLf &" 由 CoolerMaster MIS Dept. (hlr@coolermaster.com.cn) 修改."
WScript.Echo text

作者: jerry1981 时间: 2007-4-16 11:17
学习中

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.cn/)