Get the SSID of the computer.
[code]Soft Declare Function LookupAccountName Lib “advapi32.dll” Alias “LookupAccountNameA” _
(IpSystemName As cString, _
IpAccountName As cString, _
pSid As Ptr, _
ByRef cbSid As Integer, _
ReferencedDomainName As ptr, _
ByRef cbReferencedDomainName As Integer, _
ByRef peUse As Integer) As Integer
soft declare function ConvertSidToStringSid lib “advapi32.dll” alias “ConvertSidToStringSidA” _
(psid as Ptr, byref ssid as ptr) as boolean
Dim pSia As Integer
Dim pSiaByte As new MemoryBlock(5)
Dim pSid As new MemoryBlock(512)
dim thecbSid as Integer
dim thecbRDN as Integer
dim thepeUse as Integer = 1
Dim pDomain As new memoryblock(512)
Dim IReturn As Integer
dim strNTDomain, strNTAccount as string
strNTDomain = “”
strNTAccount= “Administrator”
IReturn = LookupAccountName(strNTDomain, strNTAccount,pSid, thecbSid, pDomain, thecbRDN, thepeUse)
pSid= new MemoryBlock(thecbSid)
pDomain= new MemoryBlock(thecbRDN)
IReturn = LookupAccountName(strNTDomain, strNTAccount,pSid, thecbSid, pDomain, thecbRDN, thepeUse)
dim sSid as Ptr
dim strSid as string
dim mb as MemoryBlock
call ConvertSidToStringSid(psid, ssid)
mb= ssid
strSid= mb.Cstring(0)[/code]