Hi,
We have developed several scripts but there comes new requirement where User don't want to input and re-input their Ellipse Login Information. So, we provide a new Login form and user types input here. However, several users have more than one positions and we don't want user to input the position themselves.
Does anyone here know how to get the Position information and put it to the Login information as in a Listbox?
Here is the code we currently use:
Set objMIMS = New MIMSXServer
objMIMS.Initialise
objMIMS.ServerConnect True
objMIMS.RegistryGetDefaultProfile
objMIMS.SendLoginBlock True, True, UCase(Trim(frmDownload.txtUsername.Text)), UCase(Trim(frmDownload.txtPassword.Text)),
UCase(Trim(frmDownload.txtDistrict.Text)),
UCase(Trim(frmDownload.txtPosition.Text))
TIA.
We have developed several scripts but there comes new requirement where User don't want to input and re-input their Ellipse Login Information. So, we provide a new Login form and user types input here. However, several users have more than one positions and we don't want user to input the position themselves.
Does anyone here know how to get the Position information and put it to the Login information as in a Listbox?
Here is the code we currently use:
Set objMIMS = New MIMSXServer
objMIMS.Initialise
objMIMS.ServerConnect True
objMIMS.RegistryGetDefaultProfile
objMIMS.SendLoginBlock True, True, UCase(Trim(frmDownload.txtUsername.Text)), UCase(Trim(frmDownload.txtPassword.Text)),
UCase(Trim(frmDownload.txtDistrict.Text)),
UCase(Trim(frmDownload.txtPosition.Text))
TIA.