如何建立獨立會話
建立連結服務之後,您必須建立要使用的獨立會話。
建立獨立會話
建立「獨立會話連線」記錄。
驗證會話是否已建立。
定義新連接的屬性。
下列程式碼範例示範如何建立獨立的會話:
Private Sub CreateIndependentSession
On error resume next
'Create the Independent Sessions Connection record.
Set Namespace = GetObject("Winmgmts:root\MicrosoftHIS")
'Validate that the instance was created
strQuery = "select * from MsSna_LinkService_IpDlc"
' this is our instance
Set instset = Namespace.ExecQuery(strQuery)
if ( instset.Count<>1) Then
wscript.echo "No instances found for the link service query " & strQuery
End If
For each inst_ in instSet
Set Inst = inst_ ' This is our new instance
Next ' end of query workaround
' define independent sessions connection
Set ObjClass = Namespace.Get("MsSna_ConnectionIpDlc")
Set IndepConn = ObjClass.SpawnInstance_
IndepConn.Activation = 0
IndepConn.Adapter = "SNAIP1"
IndepConn.AllowIncoming = TRUE
IndepConn.BackupDLUSCPName = ""
IndepConn.BackupDLUSNetName = ""
IndepConn.BlockId = "05D"
IndepConn.Comment = ""
IndepConn.CompressionLevel = 0
IndepConn.DLURRetryDelay = 0
IndepConn.DLURRetryLimit = 0
IndepConn.DLURRetryType = 0
IndepConn.DynamicLuDef = TRUE
IndepConn.IndepSess = TRUE
IndepConn.LocalControlPoint = ""
IndepConn.LocalNetName = ""
IndepConn.Name = Inst.Name
IndepConn.NodeId = "FFFFF"
IndepConn.PartnerConnectionName = ""
IndepConn.PeerRole = 1
IndepConn.PrimDLUSCPName = ""
IndepConn.PrimDLUSNetName = ""
IndepConn.RemoteAddress = ""
IndepConn.RemoteBlockId = ""
IndepConn.RemoteControlPoint = ""
IndepConn.RemoteEnd = 1
IndepConn.RemoteNetName = ""
IndepConn.RemoteNodeId = ""
IndepConn.RetryDelay = 0
IndepConn.RetryLimit = 0
IndepConn.Service = strComputerName
IndepConn.XIDFormat = 1
IndepConn.Put_
if Err.Number <> 0 then
PrintWMIErrorThenExit Err.Description, Err.Number
End If
End Sub