创建链接服务后，需要创建要使用的独立会话。
创建独立会话
创建“独立会话连接”记录。
验证是否已创建会话。
定义新连接的属性。
以下代码示例演示如何创建独立会话：
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