Discussion :

[jeanbob]

Bonjour,

dans mon parc informatique, les ordinateurs peuvent se connecter sur plusieurs domain controller.
Je cherche à lister l'ensemble de mes ordinateurs et de savoir sur quel domain controller l'ordinateur s'est dernièrement connecté.

Sur internet, j'ai trouvé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Set objDomain = GetObject("rootDse")
 
objDC = objDomain.Get("dnsHostName")
Wscript.Echo "Authenticating domain controller:" & objDC

En exécutant ce script sur l'ordinateur CPT1, j'obtiens le domain controller sur lequel CPT1 est connecté mais moi je veux le faire pour l'ensemble de mes ordinateurs...

Merci par avance pour votre aide.

[jeanbob]

Je vais essayer de passer une autre solution. J'ai trouvé un code sur internet qui me permet de récupérer la date de la dernière connexion sur un controller domain.
Seul problème, je n'arrive pas à faire marcher le code.
En effet, dès les premières lignes, je rencontre un message d'erreur.
Voici le code du début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim objRootDSE As New DirectoryEntry DirectoryEntry("LDAP://RootDSE")
string configurationNamingContext = (string)objRootDSE.Properties["configurationNamingContext"].Value;
string defaultNamingContext = (string)objRootDSE.Properties["defaultNamingContext"].Value;

En exécutant mon fichier toto.vbs qui contient ces lignes, j'ai une fenêtre d'erreur m'indiquant qu'à la ligne 2, caractère 16, j'ai l'erreur : Fin d'instruction attendue.

Quelqu'un pourrait il m'aider SVP ?