The following VB6 code connects to some third party software and forces a login with the admin username and password:
Set obj = GetObject(, \"workspace.appli
Marshal.GetActiveObject Method