Sid ordinateur
C?dric Charlet
Je désire lister le SID des machine de mon domaine en VBS.
J'ai bien reussi à lister les machine de mon domaine mais je n'arrive
pas à voir le SID.
Voici mon code
Merci d'avance
Public Const ADS_SCOPE_BASE = 0
Public Const ADS_SCOPE_ONELEVEL = 1
Public Const ADS_SCOPE_SUBTREE = 2
'--------------------------------------------------------------------------------
' ADO Query
'------------------------------------------------------------------------------
Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")
'Open a Connection object
con.Provider = "ADsDSOObject"
'------------------------------------
' Open the connection
'-------------------------------------
con.Open "Active Directory Provider"
' Create a command object on this connection
Set Com.ActiveConnection = con
'--------------------------------------------------
' set the query string
adDomainPath = "LDAP://serveur/DC=toto,DC=ch"
Com.CommandText = "select name from '" & adDomainPath & "' where
objectClass='computer' ORDER BY NAME"
'-----------------------------------------
'Set the preferences for Search
'--------------------------------------
Com.Properties("Page Size") = 1000
Com.Properties("Timeout") = 30 'seconds
Com.Properties("searchscope") = ADS_SCOPE_SUBTREE 'Define in
ADS_SCOPEENUM
Com.Properties("Cache Results") = False ' do not cache the result,
it results in less memory requirements
'--------------------------------------------
'Execute the query
'--------------------------------------------
Set rs = Com.Execute
'--------------------------------------
' Navigate the record set
'----------------------------------------
rs.MoveFirst
number = 0
While Not rs.EOF
wscript.echo rs.Fields("Name").Value
rs.MoveNext
number = number + 1
Wend
wscript.echo ""
wscript.echo number, "computer"
Cyrille de Pardieu [MS]
C?dric Charlet <ne...@charlet.ch> typed:
Bonjour
A tester mais essaie de rajouter la ligne suivante dans la boucle While Not
rs.EOF
rs.GetInfoEx Array("SID")
Par défaut l'attribut SID n'est pas retourné lors de la requête, il faut en
faire expressément la demande.
Cordialement
--
Cyrille de Pardieu
Ingénieur support
Equipe Plateforme / Domaine et sécurité
Microsoft France
Merci de poster vos questions sur ce forum afin que tous puissent
profiter des réponses qui sont données.
Pour éviter de recevoir des messages indésirables (également appelés «
Spam ») sur votre compte de messagerie habituel, nous vous conseillons
de ne pas utiliser une adresse de messagerie réelle lorsque vous
posez une question ou que vous répondez dans un newsgroup quel qu'il
soit. Pour plus d'information, regardez les messages intitulés
"Principe d'utilisation des Newsgroups"
C?dric Charlet
Cela ne fonctionne pas, j'ai le message d'erreur suivant
Erreur d'ex?cution Microsoft VBScript: Cet objet ne g?re pas cette
propri?t? ou cette m?thode: 'rs.GetInfoEx'
Merci de votre aide ou d'un autre exemple
A+
"Cyrille de Pardieu [MS]" <cyr...@online.microsoft.com> wrote in message news:<ebMWxtpu...@tk2msftngp13.phx.gbl>...
> In news:927c95b0.0410...@posting.google.com,
> C?dric Charlet <ne...@charlet.ch> typed:
> > Bonjour,
> >
> > Je d?sire lister le SID des machine de mon domaine en VBS.
> >
> > J'ai bien reussi ? lister les machine de mon domaine mais je n'arrive
> > pas ? voir le SID.
> Par d?faut l'attribut SID n'est pas retourn? lors de la requ?te, il faut en
> faire express?ment la demande.
>
> Cordialement
> --
> Cyrille de Pardieu
> Ing?nieur support
> Equipe Plateforme / Domaine et s?curit?
> Microsoft France
>
> Merci de poster vos questions sur ce forum afin que tous puissent
> profiter des r?ponses qui sont donn?es.
>
> Pour ?viter de recevoir des messages ind?sirables (?galement appel?s ?
> Spam ?) sur votre compte de messagerie habituel, nous vous conseillons
> de ne pas utiliser une adresse de messagerie r?elle lorsque vous
> posez une question ou que vous r?pondez dans un newsgroup quel qu'il
> soit. Pour plus d'information, regardez les messages intitul?s