Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer un petit
script permettant de lister les machines connectées à un domaine et à en
connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
Si quelqu'un peut m'aider !!
Merci d'avance !
Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer un petit
script permettant de lister les machines connectées à un domaine et à en
connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
Si quelqu'un peut m'aider !!
Merci d'avance !
Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer un petit
script permettant de lister les machines connectées à un domaine et à en
connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
Si quelqu'un peut m'aider !!
Merci d'avance !
Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer
un petit script permettant de lister les machines connectées à un
domaine et à en connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer
un petit script permettant de lister les machines connectées à un
domaine et à en connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer
un petit script permettant de lister les machines connectées à un
domaine et à en connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
Dans le message news: ,
zoo_h s'est ainsi exprimé:Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer
un petit script permettant de lister les machines connectées à un
domaine et à en connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
L'objet WScript.Network est très limité !
Tu n'iras pas loin avec.
Pour énumérer comptes et machines, il faut pratiquer autrement.
P.ex. avec les objets "ADODB.Connection", "ADSystemInfo", "LDAP://", .. ou
avec WMI et la classe "Win32_NTDomain" , ...
On trouve plein d'exemples très intéressants dans le "Script Center
Repository" et le "ScriptOMatic" :
http://www.microsoft.com/downloads/details.aspx?displaylang=en&familyid´cb2678-dafb-4e30-b2da-b8814fe2da5a
P.ex. pour énumérer les utilisateurs :
-------- couper ici --------
On Error Resume Next
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
' Le domaine est à modifier ci-dessous :
Domain="dc=jcb,dc=org"
Set objOU = GetObject("LDAP://cn=Users," & Domain)
ObjOU.Filter= Array("user")
For Each objUser in objOU
arrMemberOf = objUser.Getex("memberof")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo objUser.cn & " est membre de : "
For Each Group in arrMemberOf
WScript.Echo vbTab & Group
Next
Else
WScript.Echo objUser.cn & " attribut 'membre de' non défini"
Err.Clear
End If
script=objUser.Get("scriptPath")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo "script de connexion : " & script
else
WScript.Echo "script de connexion non défini"
end if
Wscript.Echo VbCrLf
Next
-------- couper ici --------
Tu peux aussi utiliser l'objet "WinNT://" (je l'utilise souvent dans mes
scripts)
P.ex. pour énumérer les machines d'un domaine :
set oWinnt=GetObject("WinNT://" & domain)
For each oDomainItem in oWinnt
classe=oDomainItem.Class
If classe="Computer" Then
Computer=oDomainItem.Name
....
end if
Next
...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Dans le message news:2B68A892-29CA-46C7-9FF0-8230DFD1431F@microsoft.com ,
zoo_h <zoo_h@discussions.microsoft.com> s'est ainsi exprimé:
Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer
un petit script permettant de lister les machines connectées à un
domaine et à en connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
L'objet WScript.Network est très limité !
Tu n'iras pas loin avec.
Pour énumérer comptes et machines, il faut pratiquer autrement.
P.ex. avec les objets "ADODB.Connection", "ADSystemInfo", "LDAP://", .. ou
avec WMI et la classe "Win32_NTDomain" , ...
On trouve plein d'exemples très intéressants dans le "Script Center
Repository" et le "ScriptOMatic" :
http://www.microsoft.com/downloads/details.aspx?displaylang=en&familyid´cb2678-dafb-4e30-b2da-b8814fe2da5a
P.ex. pour énumérer les utilisateurs :
-------- couper ici --------
On Error Resume Next
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
' Le domaine est à modifier ci-dessous :
Domain="dc=jcb,dc=org"
Set objOU = GetObject("LDAP://cn=Users," & Domain)
ObjOU.Filter= Array("user")
For Each objUser in objOU
arrMemberOf = objUser.Getex("memberof")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo objUser.cn & " est membre de : "
For Each Group in arrMemberOf
WScript.Echo vbTab & Group
Next
Else
WScript.Echo objUser.cn & " attribut 'membre de' non défini"
Err.Clear
End If
script=objUser.Get("scriptPath")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo "script de connexion : " & script
else
WScript.Echo "script de connexion non défini"
end if
Wscript.Echo VbCrLf
Next
-------- couper ici --------
Tu peux aussi utiliser l'objet "WinNT://" (je l'utilise souvent dans mes
scripts)
P.ex. pour énumérer les machines d'un domaine :
set oWinnt=GetObject("WinNT://" & domain)
For each oDomainItem in oWinnt
classe=oDomainItem.Class
If classe="Computer" Then
Computer=oDomainItem.Name
....
end if
Next
...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Dans le message news: ,
zoo_h s'est ainsi exprimé:Bonjour,
Je débute en WHS et j'ai quelques difficultés à réussir à créer
un petit script permettant de lister les machines connectées à un
domaine et à en connaitre les noms d'utilisateurs.
Je pensais utiliser :
set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
Mais je n'ai pas trouvé comment lister tout le domaine.
L'objet WScript.Network est très limité !
Tu n'iras pas loin avec.
Pour énumérer comptes et machines, il faut pratiquer autrement.
P.ex. avec les objets "ADODB.Connection", "ADSystemInfo", "LDAP://", .. ou
avec WMI et la classe "Win32_NTDomain" , ...
On trouve plein d'exemples très intéressants dans le "Script Center
Repository" et le "ScriptOMatic" :
http://www.microsoft.com/downloads/details.aspx?displaylang=en&familyid´cb2678-dafb-4e30-b2da-b8814fe2da5a
P.ex. pour énumérer les utilisateurs :
-------- couper ici --------
On Error Resume Next
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
' Le domaine est à modifier ci-dessous :
Domain="dc=jcb,dc=org"
Set objOU = GetObject("LDAP://cn=Users," & Domain)
ObjOU.Filter= Array("user")
For Each objUser in objOU
arrMemberOf = objUser.Getex("memberof")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo objUser.cn & " est membre de : "
For Each Group in arrMemberOf
WScript.Echo vbTab & Group
Next
Else
WScript.Echo objUser.cn & " attribut 'membre de' non défini"
Err.Clear
End If
script=objUser.Get("scriptPath")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
WScript.Echo "script de connexion : " & script
else
WScript.Echo "script de connexion non défini"
end if
Wscript.Echo VbCrLf
Next
-------- couper ici --------
Tu peux aussi utiliser l'objet "WinNT://" (je l'utilise souvent dans mes
scripts)
P.ex. pour énumérer les machines d'un domaine :
set oWinnt=GetObject("WinNT://" & domain)
For each oDomainItem in oWinnt
classe=oDomainItem.Class
If classe="Computer" Then
Computer=oDomainItem.Name
....
end if
Next
...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *