Exchange your Mind

"La connaissance ne vaut que si elle est partagée" / "An effective Knowledge is a shared one"

Comment trouver les rôles FSMO ?

Publié par David PEKMEZ le août 17, 2008


Voici un script en vbs qui vous permettra d’économiser quelques  clics de souris :)

 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"

David

About these ads

Laisser un commentaire

Choisissez une méthode de connexion pour poster votre commentaire:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

 
Suivre

Recevez les nouvelles publications par mail.

Joignez-vous à 222 followers

%d bloggers like this: