Logging into Server Admin with encrypted tickets
Server Admin supports logins by using encrypted user tickets. A COM object named CreateObject("SPSSMR.Web.Utilities.DimCrypt") is delivered with UNICOM Intelligence Web and Accessory servers. Users can use the object's EncryptStr function to encrypt the log in user’s ticket, which allows the ticket to be decrypted in the Server Admin log in application. Users can log into Server Admin without entering their user name and password.
The following sample demonstrates how the COM object and function can be used to encrypt a user's ticket. The agent object is an authenticated agent that is logged in using Server Admin mode (with a user name and password). The agent object can also log in with the calling function agent.LoginUsingWindowsAccount (which creates a ticket for the logged in user).
Dim Dimcrypt
Set Dimcrypt= CreateObject("SPSSMR.Web.Utilities.DimCrypt")
IOM.Objects.AddNew("DimCrypt", Dimcrypt)
Dim ticket
Ticket = IOM.Objects["DimCrypt"].EncryptStr(IOM.Objects["Agent"].Ticket)
After the ticket is encrypted, the user can log into Survey Reporter or Server Admin by using one of the following URLs:
▪For Survey Reporter, replace localhost with the specific server name:
http://localhost/spssmr/reporter/reporter.application?proj=" + ProjectQuestion + "&UserName=" + IOM.Objects["Agent"].UserName + "&ticket=" + ticket+"&ServiceUrl=http://localhost/SPSSMR/reporter/reporter.application"
▪For Server Admin, replace localhost with the specific server name:
http://localhost/SPSSMR/DimensionNet/Login/default.aspx?ReturnUrl=%2fspssmr%2fdimensionNet%2f"+ "&UserName=" + IOM.Objects["Agent"].UserName + "&ticket=" + ticket+"&ServiceUrl=http://localhost/SPSSMR/reporter/reporter.application" StartURL.Response = URL
See also