Get Users SID and edit Registry for that User

[ejbmail]

I need to access remote PC's and get a Users SID and then edit that users Registry for some settings.

How would I go about getting that users SIS and then edit the Registry for that user only.

Thanks in Advance.

[blademonkey]

I need to access remote PC's and get a Users SID and then edit that users Registry for some settings.

How would I go about getting that users SIS and then edit the Registry for that user only.

Thanks in Advance.

PSGETSID works well for this

from sysinternals.com

[Jos]

Search for SID on this forum and you will get hits with the answer

[ejbmail]

PSGETSID works well for this

from sysinternals.com

I know this program but due to the fact that I'm new at this scripting stuff I cannot figure out how to use the sid once I got it.

I'm having to make some registry changes to remote computers for a specific user account. So I need to obtain that sid and then make changes to reg keys under HKEY_USERS\Users SID\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced

What I can't seem to figure out is how to use the SID I received from psgetsid.

Help please.

[blademonkey]

I know this program but due to the fact that I'm new at this scripting stuff I cannot figure out how to use the sid once I got it.

I'm having to make some registry changes to remote computers for a specific user account. So I need to obtain that sid and then make changes to reg keys under HKEY_USERS\Users SID\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced

What I can't seem to figure out is how to use the SID I received from psgetsid.

Help please.

Assign the result to a variable and then use the variable in a Regread()/RegWrite() statement.

or try this:

MsgBox(0,"test","the SID is: " & GetSID())

func GetSID($sInput = '' )
    $fOutput = "c:\temp\test.txt"
    if $sInput = '' then 
        $sInput = inputbox("Test","Input user or SID")
    EndIf
    RunWait(@ComSpec & ' /c ' & 'psgetsid ' &$sInput & ' > ' & fOutput,'',@SW_HIDE)
    Return FileReadLine($fOutput,2)
    If fileexists($fOutput) then filedelete($fOutput)
EndFunc

Edited January 17, 2008 by blademonkey

[big_daddy]

_UserSID()

[ChangMinYang]

_UserSID()

Refer this, sevastian

Set colItems = objWMIService.ExecQuery ("Select * from Win32_UserAccount Where LocalAccount = True AND Name = '" & strFlagSID & "'")

If IsObJect(colItems) = 0 OR colItems.Count = 0 Then

Set colItems = objWMIService.ExecQuery ("Select * from Win32_UserAccount Where LocalAccount = True AND Name = 'Administrator'")

End If

For Each objItem in colItems

Wscript.StdOut.Write objItem.SID & vbCrLf

Next