How can i find a users GUID? 2

[hayabusaukuk]

Straight-forward question, how can i find a users GUID? on a Win 2003 TS

Thanks

 

[tfg13]

Check out User2Sid and Sid2User

http://evgenii.rudnyi.ru/soft/sid/

(if you don't like the ".ru", try here)

http://www.svrops.com/svrops/dwnldutil.htm

Here is a pretty good page explaining it in more detail:

http://www.windowsecurity.com/whitepapers/Windows-Enumeration-USER2SID-SID2USER.html

Or, for a manual way:

http://support.microsoft.com/default.aspx?scid=KB;en-us;q154599

 

[spazman]

I use this script to get the SID from a username

GetSIDFromUser Inputbox("Username you want to find SID for","Get SID from user name")
 
Function GetSIDFromUser(UserName)

	If USerName = "" Then
		Exit Function
	End IF
	Dim DomainName, Result, WMIUser

	If InStr(UserName, "\") > 0 Then
		DomainName = Mid(UserName, 1, InStr(UserName, "\") - 1)
		UserName = Mid(UserName, InStr(UserName, "\") + 1)
	Else
		DomainName = CreateObject("WScript.Network").UserDomain
	End If

	On Error Resume Next
	Set WMIUser = GetObject("winmgmts:{impersonationlevel=impersonate}!" & "/root/cimv2:Win32_UserAccount.Domain='" & DomainName & "'" & ",Name='" & trim(UserName) & "'")
	If Err = 0 Then 
		Result = WMIUser.SID 
	Else 
		Result = ""
	End If
	On Error GoTo 0
	If Result <> "" Then
		inputBox "SID for user: " & Username, "User SID", Result
	Else
		msgbox "Unable to find the requested users SID." & VbCrLF & "Most likely the user does not exist." , 16, "User SID"
	End If

	Set WMIUser = Nothing

End Function

 

[hayabusaukuk]

Thanks guys, worked great (both solutions)