Voici un script permettant de lister les serveurs ayant un Rôle Particulier au sein du domaine et de la forêt,

Set objRootDSE = GetObject("LDAP://rootDSE")
 
Set objSchema = GetObject _
    ("LDAP://" & objRootDSE.Get("schemaNamingContext"))
strSchemaMaster = objSchema.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strSchemaMaster)
Set objComputerSchema = GetObject(objNtds.Parent)
 
Set objNtds = Nothing
Set objComputer = Nothing
 
Set objPartitions = GetObject("LDAP://CN=Partitions," & _
    objRootDSE.Get("configurationNamingContext"))
strDomainNamingMaster = objPartitions.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strDomainNamingMaster)
Set objComputerNaming = GetObject(objNtds.Parent)
 
Set objDomain = GetObject _
    ("LDAP://" & objRootDSE.Get("defaultNamingContext"))
strPdcEmulator = objDomain.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strPdcEmulator)
Set objComputerPDC = GetObject(objNtds.Parent)
 
Set objRidManager = GetObject("LDAP://CN=RID Manager$­,CN=System," & _
    objRootDSE.Get("defaultNamingContext"))
strRidMaster = objRidManager.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strRidMaster)
Set objComputerRID = GetObject(objNtds.Parent)
 
Set objInfrastructure = GetObject("LDAP://CN=Infrastructure," & _
    objRootDSE.Get("defaultNamingContext"))
strInfrastructureMaster = objInfrastructure.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strInfrastructureMaster)
Set objComputerInfra = GetObject(objNtds.Parent)

MsgBox "Forest-wide Schema Master FSMO (Contrôleur de schéma): " & replace(objComputerSchema.Name,"CN=","",vbtextcompare) & vbcrlf _
& "Forest-wide Domain Naming Master FSMO (Maitre d'attribution des noms de domaine): " & replace(objComputerNaming.Name,"CN=","",vbtextcompare) & vbcrlf _
& "Domain's PDC Emulator FSMO (Emulateur PDC): " & replace(objComputerPDC.Name,"CN=","",vbtextcompare) & vbcrlf _
& "Domain's RID Master FSMO (Maître RID): " & replace(objComputerRID.Name,"CN=","",vbtextcompare) & vbcrlf _
& "Domain's Infrastructure Master FSMO (Maître d'infrastructure ): " & replace(objComputerInfra.Name,"CN=","",vbtextcompare) & vbcrlf,vbinformation,"Rôles FSMO"

Date de création : 04/03/2006 @ 00:16
Dernière modification : 12/05/2006 @ 19:02
Catégorie : 3 - Scripting
Page lue 1754 fois

 Prévisualiser la page      Imprimer la page