The ISecurityIdentifier interface for the Computer object gets the Security Identifier (SID) of the computer account.
Example
Dim Sid As ISecurityIdentifier
'Get the interface for computer object
Set Sid = GetObject ("NTDS://MSFT\MOON")
See Also