Dim ObjNRDMS As IMANADMIN.NRTDMS Dim ObjSessions As IMANADMIN.NRTSessions Dim ObjSession As IMANADMIN.NRTSession Dim ServerName As String ServerName = "SERVERNAME" ' Create the NRTDMS object ObjNRDMS = GetObject("IMANADMIN.NRTDMS") ' Add the Server to the NRTSessions object and ' get a NRTSession object for the server ObjSessions = ObjNRDMS.Sessions ObjSessions.Add(ServerName) ObjSession = ObjSessions.Item(1) ' Login to the Server ObjSession.TrustedLogin() Dim ObjDBs As IMANADMIN.NRTDatabases Dim ObjDB As IMANADMIN.NRTDatabase Dim ObjGroup As IMANADMIN.NRTGroup ' ObjSession is a previously defined NRTSession object ' Get the first database defined for ObjSession object ObjDBs = ObjSession.Databases ObjDB = ObjDBs.Item(1) ObjGroup = ObjDB.GetGroup("TEST") txtOutput.AppendText(ObjGroup.Users.ToString)
ObjNRDMS = GetObject("IMANADMIN.NRTDMS")
Dim ObjNRDMS As IMANADMIN.NRTDMS = New IMANADMIN.NRTDMS