rwillwervt
Programmer
I can't get our system to login to Crystal using the following code... If anyone could please help or provide some code to help, my email rwillwerth@asmr.com
I'm looking to logon to crystal, schedule a report to run it immediately and then show that report. Please help if you can, code would be more than appreciated ( I provided my email) Please don't just send a link to crystal decisions, I've reviewed it all. THANK YOU!
Function Main()
Dim UserID, Password, APS, Aut
APS = "192.168.40.45"
UserID = "administrator"
Password= ""
Aut = "secEnterprise"
On Error Resume Next
Dim sessionManager
Set sessionManager = Server.CreateObject("CrystalEnterprise.SessionMgr"
Dim enterpriseSession
Set enterpriseSession = sessionManager.Logon(UserID, Password, APS, Aut)
Dim iStore
Set iStore = enterpriseSession.Service ("", "InfoStore"
Set Session("iStore" = iStore
Set LogonTokenMgr = enterpriseSession.LogonTokenMgr
Session ("LogonToken" = LogonTokenMgr.CreateLogonToken("", 1, 100)
End If
End If
End Function
%>
<HTML><BODY><%
Main()
Response.Redirect "
I'm looking to logon to crystal, schedule a report to run it immediately and then show that report. Please help if you can, code would be more than appreciated ( I provided my email) Please don't just send a link to crystal decisions, I've reviewed it all. THANK YOU!
Function Main()
Dim UserID, Password, APS, Aut
APS = "192.168.40.45"
UserID = "administrator"
Password= ""
Aut = "secEnterprise"
On Error Resume Next
Dim sessionManager
Set sessionManager = Server.CreateObject("CrystalEnterprise.SessionMgr"
Dim enterpriseSession
Set enterpriseSession = sessionManager.Logon(UserID, Password, APS, Aut)
Dim iStore
Set iStore = enterpriseSession.Service ("", "InfoStore"
Set Session("iStore"
= iStoreSet LogonTokenMgr = enterpriseSession.LogonTokenMgr
Session ("LogonToken"
= LogonTokenMgr.CreateLogonToken("", 1, 100)End If
End If
End Function
%>
<HTML><BODY><%
Main()
Response.Redirect "