Security Property Example

[This product will work only on Windows NT 4.0 versions and earlier. For Windows 2000 and later, see COM+ (Component Services).]

Public Function UsingSecurityMethod() As String

    Dim objCtx As ObjectContext
    Dim objSP As SecurityProperty

    Set objCtx = GetObjectContext()
    Set objSP = objCtx.Security
    UsingSecurityMethod = _
        objSP.GetOriginalCreatorName()

End Function