Récupérer le SID d'un utilisateur

Bonjour,

Voila je cherche à récupérer le SID de l'utilisateur en cours de session.
Impossible de trouver quoi que ce soit sur le SID.

J'ai le script ci dessous qui me récupère le nom de session en cours, mais ça ne m'est pas utile pour la suite car je souhaite utiliser ce SID récupéré pour tapper dans la base de registre.

Code:

---

1 2 3

Set WshShellObj = WScript.CreateObject("WScript.Shell") Set WshProcessEnv = WshShellObj.Environment("Process") nomUser = WshProcessEnv("USERNAME")

---

Tu peu compléter ton script avec une requête WMI

Code:

---

1 2 3 4 5 6 7

Set oWMI = GetObject("winmgmts:\\.\root\cimv2") Set oCptes = oWMI.ExecQuery( "Select * From Win32_UserAccount Where Name ='" & nomUser & "'") For Each oCpte In oCptes Wscript.Echo oCpte.Name & " = " & oCpte.SID SID = oCpte.SID Next msgbox NomUSer & " = " & SID

---

Solution trouvée !!
Merci pour ce bout de code que j'avais déja trouvé sur le fofo et qui m'a été fort utile.

Principe :
1. je récupère le nom de la dernière session ouverte
2. je récupère le SID en fonction de ce nom de session
3. je peux tapper ou je veux dans HKCU de la BDR

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

On error resume next set c=CreateObject("WScript.Shell" ) DerniereSession = c.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AltDefaultUserName") Wscript.Echo "<DerniereSession>"& DerniereSession &"</DerniereSession>" Set WshNetwork = WScript.CreateObject("WScript.Network") user = WshNetwork.UserName Dim ColItems, ObjItem, Sid, strComputer, Wmi strComputer = "." Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_UserAccount where name='"& DerniereSession &"'",,48) For Each ObjItem in ColItems SID = objItem.SID   Next 'afficheage au format XML Wscript.Echo "<SID>"& SID &"</SID>" 'Savoir si le proxy IE est configuré pour l'utilisateur proxyenable = c.RegRead("HKEY_USERS\"& SID &"\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable")

---