Discussion :

[bezourox]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bezourox]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")