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

标题: 怎么知道我的服务器是不是GC啊？？ [打印本页]

作者: shibajue 时间: 2006-6-1 09:52
标题: 怎么知道我的服务器是不是GC啊？？
请教高手，怎么知道我的服务器是不是GC啊？？

作者: pres 时间: 2006-6-1 10:08
标题: re:打开（管理工具－AD的站点和服务－Sit...
打开（管理工具－AD的站点和服务－Sites－Default First Site Name－Servers－YourServerName－右击NTDS Settings属性）－看看“全局编录”有没有打上勾

作者: feitianxiang 时间: 2006-6-1 15:54
标题: re:我写了一个脚本。在精华里有你可以...
我写了一个脚本。 
在精华里有 
你可以看看的

作者: kakafaint 时间: 2006-6-1 17:47
标题: re:Set objRootDSE = Get...
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 coolnetboy(coolnetboy@hotmail.com)" 
WScript.Echo text

作者: kakafaint 时间: 2006-6-1 17:48
标题: re:打开写字板，存成vbs格式，点击就知道了
打开写字板，存成vbs格式，点击就知道了

作者: chrisqian 时间: 2006-6-1 20:54
标题: re:3，4，5楼说的没错，但如果LZ实际操作...
3，4，5楼说的没错，但如果LZ实际操作在哪还不知道这岂不是没有学到，所以本人还是建议LZ还是先知道其实际操作，赞同2楼。

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