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 ?

Posted by 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.

Rejoignez 229 autres abonnés

%d blogueurs aiment cette page :