Obtaining SID 1

[mpastore]

Does anyone have code to obtain the user SID based on domain/uid?

I have found a VB example from but would like a VFP equivalent.

Thanks

Mike Pastore

Hats off to (Roy) Harper

 

[ramani]

Hi
Have a look in
Identifying network servers
thread184-707428





____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[craigsboyd]

Take the code below, cut-n-paste it into a prg and run it from within VFP. Modify to suit your needs. (Special Note: The user must have the WMI Core Components installed on their machine in order for this to work.)

LOCAL lcDomain, lcComputer, lcUser

*!* Replace these variables with your own values
*!* I am using the Wscript Network object just for
*!* this example
oWshNetwork = CreateObject("WScript.Network")
lcDomain = oWshNetwork.UserDomain
lcComputer = oWshNetwork.ComputerName
lcUser = oWshNetwork.UserName

?"DOMAIN: " + lcDomain
?"COMP NAME: " + lcComputer
?"USERNAME: " + lcUser
lcUser = "Administrator"
lcSID = GetSID(lcDomain, lcComputer, lcUser)

?"SID: " + lcSID + IIF(Right(lcSID, 4) = "-500", " (Default Admin Account)", "")


Function GetSID(tcDomain, tcComputer, tcUser)
	LOCAL loWMI, loUserAccount
	loWMI=GetObject("winmgmts://" + tcDomain + "/root/cimv2")
	loUserAccount = loWMI.Get("Win32_UserAccount.Domain='" + tcComputer + "'" + ",Name='" + tcUser + "'")
	Return(loUserAccount.SID)
Endfunc

Slighthaze = NULL
_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[mpastore]

Thanks for feedback...

Can you explain this portion?

loWMI=GetObject("winmgmts://" + tcDomain + "/root/cimv2&quot

Mike Pastore

Hats off to (Roy) Harper

 

[craigsboyd]

mpastore,

The MSDN does a much better job than I could ever do here, plus it is not necessarily VFP specific, so grab a cup of coffee and a comfortable chair and go here:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnclinic/html/scripting06112002.asp

Slighthaze = NULL
_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[mpastore]

thanks for the lead, I'll look into it.

Mike Pastore

Hats off to (Roy) Harper

 

[craigsboyd]

mpastore,

You may want to have a look at the following (seems like you could use the pointers to retrieve what you need and WMI would not be required, though I haven't looked into it very much)

http://www.news2news.com/vfp/?example=427&function=385

...the author of that site is a member here...sometimes he will drop in.

Slighthaze = NULL
_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​

 

[mpastore]

Here's the version I got to work on my network:

CLEAR

LOCAL lcDomain, lcComputer, lcUser

*!* Replace these variables with your own values
*!* I am using the Wscript Network object just for
*!* this example
oWshNetwork = CreateObject("WScript.Network&quot
lcDomain = oWshNetwork.UserDomain
lcComputer = oWshNetwork.ComputerName
lcUser = oWshNetwork.UserName

?"DOMAIN: " + lcDomain
?"COMP NAME: " + lcComputer
?"USERNAME: " + lcUser
lcUser = "administrator"
lcSID = GetSID(lcDomain, lcComputer, lcUser)
?lcSID

Function GetSID(tcDomain, tcComputer, tcUser)
LOCAL loWMI, loUserAccount
loWMI=GetObject("winmgmts://" + tcDomain) && + "/root/cimv2&quot
loUserAccount = loWMI.Get("Win32_UserAccount.Domain='" + tcDomain + "'" + ",Name='" + tcUser + "'&quot
Return(loUserAccount.SID)
Endfunc

Mike Pastore

Hats off to (Roy) Harper