Compartir a través de

Creación de un servicio de vínculo

  • Artículo

Otra tarea que puede realizar al configurar una conexión IPDLC es crear el servicio de vínculo.

  1. Conéctese al espacio de nombres en el equipo local mediante GetObject.

  2. Cree la nueva instancia de servicio de vínculo mediante SpawnInstance.

  3. Establezca las propiedades del nuevo servicio de vínculo.

  4. Confirme la nueva instancia en la memoria mediante el método Put_ .

    En el ejemplo siguiente se muestra cómo crear un nuevo servicio de vínculo:

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