Pooling Samples

' Create the pooled object
Dim obPooledObject As New SASObjectManager.PooledObject
Dim obSAS As SAS.Workspace
Set obSAS = obPooledObject.SASObject
' Test the object
Debug.Print obSAS.Utilities.HostSystem.DNSName
' Return the object to the pool
set obSAS=Nothing
obPooledObject.ReturnToPool

Set obServer = CreateObject("SASObjectManager.ServerDef")
Set obLogin = CreateObject("SASObjectManager.LoginDef")
Set obObjectFactory = CreateObject("SASObjectManager.ObjectFactory")
' Define a ServerDef and LoginDef for the pool
obServer.MachineDNSName = "localhost"
' For VBScript, set obServer.Protocol to 2 instead of ProtocolBridge
obServer.Protocol = ProtocolBridge
obServer.Port = 8591
obServer.ShutdownAfter = 1
obServer.RunForever = False
obServer.RecycleActivationLimit = 10000
obLogin.LoginName = "mydomain\myuserid"
obLogin.Password = "myPassword"
' Create the pool
Set obPool = obObjectFactory.ObjectPools.CreatePoolByServer(
"myPool", obServer, obLogin)
' Create a pooled object
Set obPooledWorkspace = obPool.GetPooledObject("", "", 10000)
Set obSAS = obPooledWorkspace.SASObject
' Test the object
Debug.Print obSAS.Utilities.HostSystem.DNSName
' Return the object to the pool
Set obSAS = Nothing
obPooledWorkspace.ReturnToPool
Set obPooledWorkspace = Nothing