NetLocalGroupGetMembers: Enumerate Local Groups and Members http://vbnet.mvps.org/index.html?code/network/netgocalgroupgetmembers.htm
Guy
"Marc" a écrit dans le message de news:OZmW1$
Bonjour
Avec VB, je souhaite avoir la liste des utilisateurs locaux définis sur une machine, dans le but d'avoir la liste de tous les répertoires personnels.
Comment faire ? Merci
Marc
Guy DETIENNE
Re ;O)
Ou avec WMI (utilisation de la classe Win32_Account) :
A copier-coller dans un fichier nommé TEST.VBS que tu exécuteras en double-cliquant dessus :
' **************************************************************************** ' This function lists all accounts on a computer or domain ' ****************************************************************************
Sub ListAccounts( strComputer ) Dim objWMIService, colItems
Set objWMIService = GetObject( "winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Account",,48) For Each objItem in colItems Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "InstallDate: " & objItem.InstallDate Wscript.Echo "Name: " & objItem.Name Wscript.Echo "SID: " & objItem.SID Wscript.Echo "SIDType: " & objItem.SIDType Wscript.Echo "Status: " & objItem.Status Next End Sub
' **************************************************************************** ' Main ' **************************************************************************** Dim strComputer Do strComputer = inputbox( "Please enter a computername or . for local computer",
"Input" ) Loop until strComputer <> ""
ListAccounts( strComputer )
WScript.Echo( "For more samples, goto http://www.activxperts.com/activmonitor and click"
) WScript.Echo( "On WMI samples" )
Guy
"Marc" a écrit dans le message de news:OZmW1$
Bonjour
Avec VB, je souhaite avoir la liste des utilisateurs locaux définis sur une machine, dans le but d'avoir la liste de tous les répertoires personnels.
Comment faire ? Merci
Marc
Re ;O)
Ou avec WMI (utilisation de la classe Win32_Account) :
A copier-coller dans un fichier nommé TEST.VBS que tu exécuteras en
double-cliquant dessus :
'
****************************************************************************
' This function lists all accounts on a computer or domain
'
****************************************************************************
Sub ListAccounts( strComputer )
Dim objWMIService, colItems
Set objWMIService = GetObject( "winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Account",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Domain: " & objItem.Domain
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SID: " & objItem.SID
Wscript.Echo "SIDType: " & objItem.SIDType
Wscript.Echo "Status: " & objItem.Status
Next
End Sub
'
****************************************************************************
' Main
'
****************************************************************************
Dim strComputer
Do
strComputer = inputbox( "Please enter a computername or . for local
computer",
"Input" )
Loop until strComputer <> ""
ListAccounts( strComputer )
WScript.Echo( "For more samples, goto
http://www.activxperts.com/activmonitor and click"
)
WScript.Echo( "On WMI samples" )
Guy
"Marc" <marc-c.michel@laposte.net> a écrit dans le message de
news:OZmW1$eFGHA.740@TK2MSFTNGP12.phx.gbl...
Bonjour
Avec VB, je souhaite avoir la liste des utilisateurs locaux définis sur
une machine, dans le but d'avoir la liste de tous les répertoires
personnels.
Ou avec WMI (utilisation de la classe Win32_Account) :
A copier-coller dans un fichier nommé TEST.VBS que tu exécuteras en double-cliquant dessus :
' **************************************************************************** ' This function lists all accounts on a computer or domain ' ****************************************************************************
Sub ListAccounts( strComputer ) Dim objWMIService, colItems
Set objWMIService = GetObject( "winmgmts:" & strComputer & "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Account",,48) For Each objItem in colItems Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "InstallDate: " & objItem.InstallDate Wscript.Echo "Name: " & objItem.Name Wscript.Echo "SID: " & objItem.SID Wscript.Echo "SIDType: " & objItem.SIDType Wscript.Echo "Status: " & objItem.Status Next End Sub
' **************************************************************************** ' Main ' **************************************************************************** Dim strComputer Do strComputer = inputbox( "Please enter a computername or . for local computer",
"Input" ) Loop until strComputer <> ""
ListAccounts( strComputer )
WScript.Echo( "For more samples, goto http://www.activxperts.com/activmonitor and click"
) WScript.Echo( "On WMI samples" )
Guy
"Marc" a écrit dans le message de news:OZmW1$
Bonjour
Avec VB, je souhaite avoir la liste des utilisateurs locaux définis sur une machine, dans le but d'avoir la liste de tous les répertoires personnels.
Comment faire ? Merci
Marc
Fred
Dans : news:, Guy DETIENNE disait :
Re ;O)
Bonsoir,
Ou avec WMI (utilisation de la classe Win32_Account) :
Oui, mais Marc est intéressé par les répertoires des utilisateurs. Donc une fois qu'il a les SID, il peut aller récupérer ces répertoires dans : HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProfileList Puis la clé correspondant à un SID et dans cette clé la valeur : ProfileImagePath. À moins que le WMI permette de retrouver ces répertoires, mais dans un cas semblable je n'avais pas trouvé d'autre solution que WMI + registre.
Je ne sais pas quel est le but, mais peut-être que la récupération de ces valeurs en énumérant les clés SIDs serait suffisante ?
PS : Je ne sais pas ce que cela peut donner sur un 95, 98 ou Me.
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Dans : news:eGmRhGhFGHA.644@TK2MSFTNGP09.phx.gbl,
Guy DETIENNE disait :
Re ;O)
Bonsoir,
Ou avec WMI (utilisation de la classe Win32_Account) :
Oui, mais Marc est intéressé par les répertoires des utilisateurs.
Donc une fois qu'il a les SID, il peut aller récupérer ces répertoires
dans :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionProfileList
Puis la clé correspondant à un SID et dans cette clé la valeur :
ProfileImagePath.
À moins que le WMI permette de retrouver ces répertoires, mais dans un
cas semblable je n'avais pas trouvé d'autre solution que WMI + registre.
Je ne sais pas quel est le but, mais peut-être que la récupération de
ces valeurs en énumérant les clés SIDs serait suffisante ?
PS : Je ne sais pas ce que cela peut donner sur un 95, 98 ou Me.
Ou avec WMI (utilisation de la classe Win32_Account) :
Oui, mais Marc est intéressé par les répertoires des utilisateurs. Donc une fois qu'il a les SID, il peut aller récupérer ces répertoires dans : HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProfileList Puis la clé correspondant à un SID et dans cette clé la valeur : ProfileImagePath. À moins que le WMI permette de retrouver ces répertoires, mais dans un cas semblable je n'avais pas trouvé d'autre solution que WMI + registre.
Je ne sais pas quel est le but, mais peut-être que la récupération de ces valeurs en énumérant les clés SIDs serait suffisante ?
PS : Je ne sais pas ce que cela peut donner sur un 95, 98 ou Me.
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Guy DETIENNE
Salut ;O)
Maintenant qu'il peut connaître les users locaux, a lui de faire le reste... N'était-ce pas sa question initiale ?
Guy
"Fred" a écrit dans le message de news:
Dans : news:, Guy DETIENNE disait : > Re ;O)
Bonsoir,
> Ou avec WMI (utilisation de la classe Win32_Account) :
Oui, mais Marc est intéressé par les répertoires des utilisateurs. Donc une fois qu'il a les SID, il peut aller récupérer ces répertoires dans : HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProfileList Puis la clé correspondant à un SID et dans cette clé la valeur : ProfileImagePath. À moins que le WMI permette de retrouver ces répertoires, mais dans un cas semblable je n'avais pas trouvé d'autre solution que WMI + registre.
Je ne sais pas quel est le but, mais peut-être que la récupération de ces valeurs en énumérant les clés SIDs serait suffisante ?
PS : Je ne sais pas ce que cela peut donner sur un 95, 98 ou Me.
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Salut ;O)
Maintenant qu'il peut connaître les users locaux, a lui de faire le reste...
N'était-ce pas sa question initiale ?
Guy
"Fred" <foleide@libre.france> a écrit dans le message de
news:eJA4CUhFGHA.1452@TK2MSFTNGP11.phx.gbl...
Dans : news:eGmRhGhFGHA.644@TK2MSFTNGP09.phx.gbl,
Guy DETIENNE disait :
> Re ;O)
Bonsoir,
> Ou avec WMI (utilisation de la classe Win32_Account) :
Oui, mais Marc est intéressé par les répertoires des utilisateurs.
Donc une fois qu'il a les SID, il peut aller récupérer ces répertoires
dans :
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersionProfileList
Puis la clé correspondant à un SID et dans cette clé la valeur :
ProfileImagePath.
À moins que le WMI permette de retrouver ces répertoires, mais dans un
cas semblable je n'avais pas trouvé d'autre solution que WMI + registre.
Je ne sais pas quel est le but, mais peut-être que la récupération de
ces valeurs en énumérant les clés SIDs serait suffisante ?
PS : Je ne sais pas ce que cela peut donner sur un 95, 98 ou Me.
Maintenant qu'il peut connaître les users locaux, a lui de faire le reste... N'était-ce pas sa question initiale ?
Guy
"Fred" a écrit dans le message de news:
Dans : news:, Guy DETIENNE disait : > Re ;O)
Bonsoir,
> Ou avec WMI (utilisation de la classe Win32_Account) :
Oui, mais Marc est intéressé par les répertoires des utilisateurs. Donc une fois qu'il a les SID, il peut aller récupérer ces répertoires dans : HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProfileList Puis la clé correspondant à un SID et dans cette clé la valeur : ProfileImagePath. À moins que le WMI permette de retrouver ces répertoires, mais dans un cas semblable je n'avais pas trouvé d'autre solution que WMI + registre.
Je ne sais pas quel est le but, mais peut-être que la récupération de ces valeurs en énumérant les clés SIDs serait suffisante ?
PS : Je ne sais pas ce que cela peut donner sur un 95, 98 ou Me.
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Fred
Dans : news:, Guy DETIENNE disait :
Salut ;O)
Hello,
Maintenant qu'il peut connaître les users locaux, a lui de faire le reste... N'était-ce pas sa question initiale ?
Oui, c'était surtout pour indiquer où l'on peut retrouver les répertoires. D'ailleurs, il y a peut-être d'autres moyens que celui que j'ai indiqué car lorsque j'ai utilisé cela, c'était pour un script vbs, donc difficile de faire appel aux APIs Windows par exemple.
-- Fred http://www.cerbermail.com/?3kA6ftaCvT
Dans : news:e9dlNvhFGHA.1192@TK2MSFTNGP11.phx.gbl,
Guy DETIENNE disait :
Salut ;O)
Hello,
Maintenant qu'il peut connaître les users locaux, a lui de faire le
reste... N'était-ce pas sa question initiale ?
Oui, c'était surtout pour indiquer où l'on peut retrouver les
répertoires.
D'ailleurs, il y a peut-être d'autres moyens que celui que j'ai indiqué
car lorsque j'ai utilisé cela, c'était pour un script vbs, donc
difficile de faire appel aux APIs Windows par exemple.
Maintenant qu'il peut connaître les users locaux, a lui de faire le reste... N'était-ce pas sa question initiale ?
Oui, c'était surtout pour indiquer où l'on peut retrouver les répertoires. D'ailleurs, il y a peut-être d'autres moyens que celui que j'ai indiqué car lorsque j'ai utilisé cela, c'était pour un script vbs, donc difficile de faire appel aux APIs Windows par exemple.
