リンク サービスを作成する方法

  • [アーティクル]

IPDLC 接続を設定するときに実行する必要があるもう 1 つのタスクは、リンク サービスを作成することです。

  1. GetObject を使用して、ローカル コンピューター上の名前空間に接続します。

  2. SpawnInstance を使用して新しいリンク サービス インスタンスを作成します。

  3. 新しいリンク サービスのプロパティを設定します。

  4. Put_ メソッドを使用して、新しいインスタンスをメモリにコミットします。

    次の例は、新しいリンク サービスを作成する方法を示しています。

private Sub CreateIPDLCLinkService  
    on error resume next  
' Connect to the namepsace on the local machine  
    Set Namespace = GetObject("Winmgmts:root\MicrosoftHIS")  
    Set ObjClass  = Namespace.Get("MsSna_LinkService_IpDlc")     
' Create new link service instance  
    Set NewInst   = ObjClass.SpawnInstance_  
    ' Set instance properties  
    NewInst.NetworkName = Left(strComputerName, 8)  
    NewInst.CPName = "IPDLCLS"  
    NewInst.NodeID = "05D.FFFFF"  
    NewInst.AddressType = 2  
    NewInst.LocalAddress = Trim(strLocalAddress)  
    NewInst.LENNode = strLenNode  
    NewInst.PrimaryNNS = strPrimaryNNS  
    if (strBackupNNS <> Empty) then  
        NewInst.BackupNNS = strBackupNNS  
    end if  
    ' Commit the instance  
    NewInst.Put_  
    if Err.Number <> 0 then  
        PrintWMIErrorThenExit Err.Description, Err.Number  
        Wscript.Echo "Link Service Creation Failed " & Err.Description  
    Else   
        Wscript.Echo "Link Serice Created Successfully"  
    end if  
End Sub