Any calls made to a Session Pro object within your Global.asa file's Sub Session_OnEnd procedure will be using a local system account to do it's processing. Thus, any calls which require network access will likely fail.
For instance, the following code will fail if the HKEY_LOCAL_MACHINE\Software\SMUM\XSession\Parameters\Root key is set to a network share:
Sub Session_OnEnd
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("c:\temp\SessionTest1.txt", True)
a.WriteLine("This is a test.")
a.Close
set SASession = Server.CreateObject("SoftArtisans.SASessionPro.1")
SASession.Delete
Set SASession = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("c:\temp\SessionTest2.txt", True)
a.WriteLine("This file will not exist unless you have version 1.23 or greater.")
a.Close
Set fso = Nothing
End Sub
|
To work around this problem, arrange for the Global.asa's code to be firing under a different security context. This can be done using SoftArtisans FileManager utility. For example, you could change the above code to read as follows:
Sub Session_OnEnd
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("c:\temp\SessionTest1.txt", True)
a.WriteLine("This is a test.")
a.Close
' Create the SoftArtisans.FileManger object.
Set oFileMan = Server.CreateObject("SoftArtisans.FileManager")
' Use the LogonUser method to log on a user with domain rights.
oFileMan.LogonUser "Domain","User","Password",2
set SASession = Server.CreateObject("SoftArtisans.SASessionPro.1")
SASession.Delete
Set SASession = Nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("c:\temp\SessionTest2.txt", True)
a.WriteLine("This file will not exist unless you have version 1.23 or greater.")
a.Close
Set fso = Nothing
' Have the user context revert back to normal.
oFileMan.RevertToSelf
Set oFileMan = Nothing
End Sub
Note: The preceeding example will not work without SoftArtisans FileManager. An evaluation of FileManager may be downloaded from http://support.softartisans.com/evalindex.asp. |
