Logging into Server Admin with encrypted tickets
Server Admin supports log-ins through encrypted user tickets. A COM object namedCreateObject("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. Note that 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 functionagent.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 use it to log into Survey Reporter or Server Admin with 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