userslist qui ne fonctionne pas

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Windows Windows NT Discussions Générales userslist qui ne fonctionne pas

1 réponse

Zeffir

01/07/2003 à 20:57

Bonjour,

J'ai trouvé, dans une recherche google sur les anciens posts de ce forum, un
script nommé userslist.vbs et dont l'auteur est JCB soi-même. Il me
conviendrait parfaitement... sauf que je n'arrive pas à obtenir la liste des
users :-(

je lance ce script par
cscript c:\vbs\userslist.vbs c:\vbs\users.txt

Il semble fontionner : le fichier users.txt est créé mais il ne contient que
la ligne :
#Liste des utilisateurs et groupes de NODIER
et aucun utilisateur ni groupe...

Je précise que j'ai bien installé en premier lieu scr56en.exe téléchargé sur
le site de JCB. L'installation s'est bien déroulée.
Mon réseau est en NT4 sp6a et contient quelques centaines d'utilisateurs et
une vingtaine de groupes globaux.
Le nom du domaine est NODIER

Je joins ci-dessous le script au cas où quelqu'un pourrait me dire ce qui
manque pour que ça marche...

Merci d'avance.
---début
copier----------------------------------------------------------------------
-
'
' Sortie dans un fichier texte de la liste des utilisateurs et groupes
' --------------------------------------------------------------------
' J.C.BELLAMY © 2000
On Error Resume Next
Dim network, computer, args, fso, ts, SAM, Item, member, ListMembers
Set network = Wscript.CreateObject("WScript.Network")
Set Shell = WScript.CreateObject("WScript.Shell")
Set args=Wscript.Arguments
If args.count=0 Then
Wscript.echo "Nom de fichier destination non indiqué"
Wscript.quit
End If
ficlog=args(0) ' nom du fichier de sortie
computer=network.ComputerName ' nom de la machine locale
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile(ficlog, True)
domaine="NODIER" ' le nom du domaine
Line="#Liste des utilisateurs et groupes de " & domaine
ts.WriteLine Line
Wscript.echo line
set SAM=GetObject("WinNT://" & domaine)
for each Item in SAM
Classe=Item.Class
If ((Classe = "User") or (Classe = "Group")) then
Line= Classe & chr(9) & Item.name & chr(9) & Item.Description
Wscript.echo Line
fn=""
If (Classe = "User") Then fn=ch(9) & Item.FullName
ts.WriteLine Line & fn
If (Classe = "Group") Then
Set ListMembers = Item.members
for each member in ListMembers
ts.WriteLine chr(9) & member.Class & chr(9) & member.Name
next
End If
End if
next
ts.Close
Wscript.echo "----- FIN -----"
Wscript.quit
---fin
copier----------------------------------------------------------------------
-

--
~~~~~~~
Zeffir
~~~~~~~

1 réponse

JAFFRE Stephane OF/Ren/Ext

02/07/2003 à 15:24

Il s'agit d'un message multivolet au format MIME.
--------------C69A6D9B8DCBE4033FF61AC5
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Bonjour,
 la ligne suivante : set SAM=GetObject("WinNT://" & domaine) nécessite
ADSI si tu es sous NT
 <a href="http://www.microsoft.com/NTWorkstation/downloads/Other/ADSI25.asp">http://www.microsoft.com/NTWorkstation/downloads/Other/ADSI25.asp</a>
Stéphane
Zeffir a écrit :
<blockquote TYPE=CITE>Bonjour,
J'ai trouvé, dans une recherche google sur les anciens posts
de ce forum, un
 script nommé userslist.vbs et dont l'auteur est JCB soi-même.
Il me
 conviendrait parfaitement... sauf que je n'arrive pas à obtenir
la liste des
 users :-(
je lance ce script par
 cscript c:vbsuserslist.vbs c:vbsusers.txt
Il semble fontionner : le fichier users.txt est créé mais
il ne contient que
 la ligne :
 #Liste des utilisateurs et groupes de NODIER
 et aucun utilisateur ni groupe...
Je précise que j'ai bien installé en premier lieu scr56en.exe
téléchargé sur
 le site de JCB. L'installation s'est bien déroulée.
 Mon réseau est en NT4 sp6a et contient quelques centaines d'utilisateurs
et
 une vingtaine de groupes globaux.
 Le nom du domaine est NODIER
Je joins ci-dessous le script au cas où quelqu'un pourrait me
dire ce qui
 manque pour que ça marche...
Merci d'avance.
 ---début
 copier----------------------------------------------------------------------
 -
 '
 ' Sortie dans un fichier texte de la liste des utilisateurs et groupes
 ' --------------------------------------------------------------------
 ' J.C.BELLAMY © 2000
 On Error Resume Next
 Dim network, computer, args, fso, ts, SAM, Item, member, ListMembers
 Set network  = Wscript.CreateObject("WScript.Network")
 Set Shell = WScript.CreateObject("WScript.Shell")
 Set args=Wscript.Arguments
 If args.count=0 Then
  Wscript.echo "Nom de fichier destination non indiqué"
  Wscript.quit
  End If
 ficlog=args(0) ' nom du fichier de sortie
 computer=network.ComputerName  ' nom de la machine locale
 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 Set ts  = fso.CreateTextFile(ficlog, True)
 domaine="NODIER" ' le nom du domaine
 Line="#Liste des utilisateurs et groupes de " & domaine
 ts.WriteLine Line
 Wscript.echo line
 set SAM=GetObject("WinNT://" & domaine)
 for each Item in SAM
  Classe=Item.Class
  If ((Classe = "User") or (Classe = "Group")) then
   Line= Classe & chr(9) & Item.name & chr(9) &
Item.Description
   Wscript.echo Line
   fn=""
   If (Classe = "User") Then fn=ch(9) & Item.FullName
   ts.WriteLine Line & fn
   If (Classe = "Group") Then
    Set ListMembers = Item.members
    for each member in ListMembers
     ts.WriteLine chr(9) & member.Class & chr(9)
& member.Name
     next
    End If
   End if
  next
 ts.Close
 Wscript.echo "----- FIN -----"
 Wscript.quit
 ---fin
 copier----------------------------------------------------------------------
 -
--
 ~~~~~~~
    Zeffir
 ~~~~~~~</blockquote>
</html>

--------------C69A6D9B8DCBE4033FF61AC5
Content-Type: text/x-vcard; charset=us-ascii;
name="stephane.jaffre.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Carte pour JAFFRE Stephane OF/Ren/Ext
Content-Disposition: attachment;
filename="stephane.jaffre.vcf"

begin:vcard
n:Jaffré;Stéphane
tel;cell:06 81 71 04 30
tel;work:02 99 27 86 71
x-mozilla-html:FALSE
org:;<table><td align="left" width="50%">OrangeFrance</td><td align="right" width="50%"><img src="http://mobiloo.ftm.francetelecom.fr/CCORennes/executables/images/orange_logo_mail.gif"</td></table>
adr:;;;;;;
version:2.1
title:<a href="mailto:"></a>
fn:Stéphane Jaffré
end:vcard

--------------C69A6D9B8DCBE4033FF61AC5--

Il s'agit d'un message multivolet au format MIME.
--------------C69A6D9B8DCBE4033FF61AC5
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Bonjour,
 la ligne suivante : set SAM=GetObject("WinNT://" & domaine) nécessite
ADSI si tu es sous NT
 <a href="http://www.microsoft.com/NTWorkstation/downloads/Other/ADSI25.asp">http://www.microsoft.com/NTWorkstation/downloads/Other/ADSI25.asp</a>
Stéphane
Zeffir a écrit :
<blockquote TYPE=CITE>Bonjour,
J'ai trouvé, dans une recherche google sur les anciens posts
de ce forum, un
 script nommé userslist.vbs et dont l'auteur est JCB soi-même.
Il me
 conviendrait parfaitement... sauf que je n'arrive pas à obtenir
la liste des
 users :-(
je lance ce script par
 cscript c:vbsuserslist.vbs c:vbsusers.txt
Il semble fontionner : le fichier users.txt est créé mais
il ne contient que
 la ligne :
 #Liste des utilisateurs et groupes de NODIER
 et aucun utilisateur ni groupe...
Je précise que j'ai bien installé en premier lieu scr56en.exe
téléchargé sur
 le site de JCB. L'installation s'est bien déroulée.
 Mon réseau est en NT4 sp6a et contient quelques centaines d'utilisateurs
et
 une vingtaine de groupes globaux.
 Le nom du domaine est NODIER
Je joins ci-dessous le script au cas où quelqu'un pourrait me
dire ce qui
 manque pour que ça marche...
Merci d'avance.
 ---début
 copier----------------------------------------------------------------------
 -
 '
 ' Sortie dans un fichier texte de la liste des utilisateurs et groupes
 ' --------------------------------------------------------------------
 ' J.C.BELLAMY © 2000
 On Error Resume Next
 Dim network, computer, args, fso, ts, SAM, Item, member, ListMembers
 Set network  = Wscript.CreateObject("WScript.Network")
 Set Shell = WScript.CreateObject("WScript.Shell")
 Set args=Wscript.Arguments
 If args.count=0 Then
  Wscript.echo "Nom de fichier destination non indiqué"
  Wscript.quit
  End If
 ficlog=args(0) ' nom du fichier de sortie
 computer=network.ComputerName  ' nom de la machine locale
 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 Set ts  = fso.CreateTextFile(ficlog, True)
 domaine="NODIER" ' le nom du domaine
 Line="#Liste des utilisateurs et groupes de " & domaine
 ts.WriteLine Line
 Wscript.echo line
 set SAM=GetObject("WinNT://" & domaine)
 for each Item in SAM
  Classe=Item.Class
  If ((Classe = "User") or (Classe = "Group")) then
   Line= Classe & chr(9) & Item.name & chr(9) &
Item.Description
   Wscript.echo Line
   fn=""
   If (Classe = "User") Then fn=ch(9) & Item.FullName
   ts.WriteLine Line & fn
   If (Classe = "Group") Then
    Set ListMembers = Item.members
    for each member in ListMembers
     ts.WriteLine chr(9) & member.Class & chr(9)
& member.Name
     next
    End If
   End if
  next
 ts.Close
 Wscript.echo "----- FIN -----"
 Wscript.quit
 ---fin
 copier----------------------------------------------------------------------
 -
--
 ~~~~~~~
    Zeffir
 ~~~~~~~</blockquote>
</html>

--------------C69A6D9B8DCBE4033FF61AC5
Content-Type: text/x-vcard; charset=us-ascii;
name="stephane.jaffre.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Carte pour JAFFRE Stephane OF/Ren/Ext
Content-Disposition: attachment;
filename="stephane.jaffre.vcf"

begin:vcard
n:Jaffré;Stéphane
tel;cell:06 81 71 04 30
tel;work:02 99 27 86 71
x-mozilla-html:FALSE
org:;<table><td align="left" width="50%">OrangeFrance</td><td align="right" width="50%"><img src="http://mobiloo.ftm.francetelecom.fr/CCORennes/executables/images/orange_logo_mail.gif"</td></table>
adr:;;;;;;
version:2.1
title:<a href="mailto:stephane.jaffre@orangefrance.com">stephane.jaffre@orangefrance.com</a>
fn:Stéphane Jaffré
end:vcard

--------------C69A6D9B8DCBE4033FF61AC5--

Vous avez filtré cet utilisateur ! Consultez son message

Il s'agit d'un message multivolet au format MIME.
--------------C69A6D9B8DCBE4033FF61AC5
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Bonjour,
 la ligne suivante : set SAM=GetObject("WinNT://" & domaine) nécessite
ADSI si tu es sous NT
 <a href="http://www.microsoft.com/NTWorkstation/downloads/Other/ADSI25.asp">http://www.microsoft.com/NTWorkstation/downloads/Other/ADSI25.asp</a>
Stéphane
Zeffir a écrit :
<blockquote TYPE=CITE>Bonjour,
J'ai trouvé, dans une recherche google sur les anciens posts
de ce forum, un
 script nommé userslist.vbs et dont l'auteur est JCB soi-même.
Il me
 conviendrait parfaitement... sauf que je n'arrive pas à obtenir
la liste des
 users :-(
je lance ce script par
 cscript c:vbsuserslist.vbs c:vbsusers.txt
Il semble fontionner : le fichier users.txt est créé mais
il ne contient que
 la ligne :
 #Liste des utilisateurs et groupes de NODIER
 et aucun utilisateur ni groupe...
Je précise que j'ai bien installé en premier lieu scr56en.exe
téléchargé sur
 le site de JCB. L'installation s'est bien déroulée.
 Mon réseau est en NT4 sp6a et contient quelques centaines d'utilisateurs
et
 une vingtaine de groupes globaux.
 Le nom du domaine est NODIER
Je joins ci-dessous le script au cas où quelqu'un pourrait me
dire ce qui
 manque pour que ça marche...
Merci d'avance.
 ---début
 copier----------------------------------------------------------------------
 -
 '
 ' Sortie dans un fichier texte de la liste des utilisateurs et groupes
 ' --------------------------------------------------------------------
 ' J.C.BELLAMY © 2000
 On Error Resume Next
 Dim network, computer, args, fso, ts, SAM, Item, member, ListMembers
 Set network  = Wscript.CreateObject("WScript.Network")
 Set Shell = WScript.CreateObject("WScript.Shell")
 Set args=Wscript.Arguments
 If args.count=0 Then
  Wscript.echo "Nom de fichier destination non indiqué"
  Wscript.quit
  End If
 ficlog=args(0) ' nom du fichier de sortie
 computer=network.ComputerName  ' nom de la machine locale
 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 Set ts  = fso.CreateTextFile(ficlog, True)
 domaine="NODIER" ' le nom du domaine
 Line="#Liste des utilisateurs et groupes de " & domaine
 ts.WriteLine Line
 Wscript.echo line
 set SAM=GetObject("WinNT://" & domaine)
 for each Item in SAM
  Classe=Item.Class
  If ((Classe = "User") or (Classe = "Group")) then
   Line= Classe & chr(9) & Item.name & chr(9) &
Item.Description
   Wscript.echo Line
   fn=""
   If (Classe = "User") Then fn=ch(9) & Item.FullName
   ts.WriteLine Line & fn
   If (Classe = "Group") Then
    Set ListMembers = Item.members
    for each member in ListMembers
     ts.WriteLine chr(9) & member.Class & chr(9)
& member.Name
     next
    End If
   End if
  next
 ts.Close
 Wscript.echo "----- FIN -----"
 Wscript.quit
 ---fin
 copier----------------------------------------------------------------------
 -
--
 ~~~~~~~
    Zeffir
 ~~~~~~~</blockquote>
</html>

--------------C69A6D9B8DCBE4033FF61AC5
Content-Type: text/x-vcard; charset=us-ascii;
name="stephane.jaffre.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Carte pour JAFFRE Stephane OF/Ren/Ext
Content-Disposition: attachment;
filename="stephane.jaffre.vcf"

begin:vcard
n:Jaffré;Stéphane
tel;cell:06 81 71 04 30
tel;work:02 99 27 86 71
x-mozilla-html:FALSE
org:;<table><td align="left" width="50%">OrangeFrance</td><td align="right" width="50%"><img src="http://mobiloo.ftm.francetelecom.fr/CCORennes/executables/images/orange_logo_mail.gif"</td></table>
adr:;;;;;;
version:2.1
title:<a href="mailto:"></a>
fn:Stéphane Jaffré
end:vcard

--------------C69A6D9B8DCBE4033FF61AC5--

userslist qui ne fonctionne pas

1 réponse

Veuillez sélectionner un problème