F11::

strComputer := "."
strNamespace := "\root\cimv2"
strClass := "Win32_Process"
strHandle := DllCall("GetCurrentProcessId")    

objSWbemServices := ComObjGet("winmgmts:\\"  strComputer  strNamespace)
objService := objSWbemServices.Get("Win32_Process.Handle='" strHandle "'")
Sid := ComVar()
Result := objService.GetOwnerSid(Sid.ref)
if !Result
  MsgBox, % sid[]

ComVar(Type=0xC)
{
    static base := { __Get: "ComVarGet", __Set: "ComVarSet", __Delete: "ComVarDel" }
    ; Create an array of 1 VARIANT.  This method allows built-in code to take
    ; care of all conversions between VARIANT and AutoHotkey internal types.
    arr := ComObjArray(Type, 1)
    ; Lock the array and retrieve a pointer to the VARIANT.
    DllCall("oleaut32\SafeArrayAccessData", "ptr", ComObjValue(arr), "ptr*", arr_data)
    ; Store the array and an object which can be used to pass the VARIANT ByRef.
    return { ref: ComObjParameter(0x4000|Type, arr_data), _: arr, base: base }
}
ComVarGet(cv, p*) { ; Called when script accesses an unknown field.
    if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]
        return cv._[0]
}
ComVarSet(cv, v, p*) { ; Called when script sets an unknown field.
    if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]:=v
        return cv._[0] := v
}
ComVarDel(cv) { ; Called when the object is being freed.
    ; This must be done to allow the internal array to be freed.
    DllCall("oleaut32\SafeArrayUnaccessData", "ptr", ComObjValue(cv._))
}

return

F12::exitApp

#NoEnv 

F10::

regSID := rgtSID() 
msgbox, %regSID%

rgtSID()
{
	loop,HKLM,SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList,1,1
	{
		if(a_loopRegName="ProfileImagePath")
		{
        regRead,rProf
        if(inStr(rProf,a_userName))
		stringReplace,SID,a_loopRegSubKey,SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\,,
		}
	}
	return % SID
}

return