Trouver le nom de l'administrateur

[Gix]

Bonsoir le forum,

Heureux de savoir que ce forum est de retour car deux jours sans vous tous c'est long...

Existe t-il un code qui peut trouver le nom de l'administrateur et non celui de l'utilisateur?
Si c'est le cas comment modifier le code
Range('A1')=Application.UserName pour trouver le nom de l'admistrateur du PC.

Merci de votre aide.

A+ Gix.

 

[Gix]

Rebonsoir le forum,

Je m'excuse si je n'ai pas été clair dans ma question, je vous joins un exemple si on peut m'aider plus facilement.

Vous remerçiant tous par avance
Gix. [file name=TrouverAdmin.zip size=38501]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TrouverAdmin.zip[/file]

 

[MichelXld]

bonsoir

sans garantie , est ce que l'information que tu recherches est contenue dans le résultat de cette macro ?

Sub Win32_Account_TestExcel()
Dim Fso As Object, Rapport As Object
Dim WmObj As Object, Test As Object
Dim Valeur As Object

On Error Resume Next
Set Fso = CreateObject('Scripting.FileSystemObject')
Set Rapport = Fs😵penTextFile('C:\\\\\\\\rapport.txt', 2, True)

Set WmObj = GetObject('WinMgmts:{impersonationLevel=impersonate}')

Set Test = WmObj.ExecQuery('Select * from Win32_Account')
For Each Valeur In Test
Rapport.WriteLine ('Nom : ' & Valeur.name)
Rapport.WriteLine ('Description : ' & Valeur.Description)
Rapport.WriteLine ('Domaines : ' & Valeur.Domain)
Rapport.WriteLine ('SID : ' & Valeur.SID)
Rapport.WriteLine ('------------------------------')
Next

ActiveWorkbook.FollowHyperlink Address:='C:\\\\\\\\rapport.txt'
End Sub



bonne soirée
MichelXld

Message édité par: michelxld, à: 30/01/2006 21:44

 

[Gix]

Bonjour le forum , Michel

Désolé pour ma réponse tardive , comme on a eu des prbs sur le forum, je ne pouvais pas te répondre avant.
Oui l'info est contenue dans le résultat de la macro je t'envoie un fichier qui pourra je l'espère être plus précis que mes mots.
Je te remercie de m'accorder du temps
A+ Gix. [file name=TrouverAdmin_20060203174803.zip size=18240]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TrouverAdmin_20060203174803.zip[/file]

 

[MichelXld]

bonsoir

tu peux tester

Sub Win32_Account_nomAdministrateur()
Dim WmObj As Object, Test As Object
Dim Valeur As Object

On Error Resume Next
Set WmObj = GetObject('WinMgmts:{impersonationLevel=impersonate}')

Set Test = WmObj.ExecQuery('Select * from Win32_Account')
For Each Valeur In Test
If Left(Valeur.Name, 14) = 'Administrateur' Then
Range('A1') = Valeur.Domain
Exit For
End If
Next

End Sub


je ne sais pas si cela va fonctionner : apparament chez toi le nom indiqué est 'Administrateur' alors que chez moi c'est 'Administrateurs'


bon week end
MichelXld

 

[Gix]

Bonsoir à tous, Michel

Merci de m'avoir répondu si vite, c'est excatement ce qu'il me fallait et chez moi ça marche nickel

Merci encore et bon week-end