IDatabaseUsername Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Get username of user current user
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
dim objdb set objdb = CreateObject("superofficedb.database") If Not (objDB is Nothing) Then objdb.login "<userid>", "<password>" ' log in to the database msgbox "username: " & objdb.username, vbinformation + vbokonly, "supercom" else msgbox "unable to connect to database" end if set objso = nothing