Help...Cannot create ActiveX component Error

See more:

VB

I need some help. When i run this code below i need it to connect to a remote computer and pull information from an edm file. if i use the local host it works but when i put a machine(zachary) in stead of using a "." I get "Cannot create activeX component".

Please help...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim strComputer As String = TextBox1.Text
    objsh = CreateObject("WScript.Shell")

    ''# Get the Novadigm system folder
    StrSystemDir = GetIdm("system")

    ''# Use ASERVICE.EDM to read
    strObject = StrSystemDir & "Lib\SYSTEM\RADIA\SOFTSRVC\ASERVICE.EDM"

    Dim process = GetObject("winmgmts://zachary/root/novadigm:NVD_Agent")
    Dim method = process.Methods_("GetValue")
    Dim inParameters = method.inParameters.SpawnInstance_()
    inParameters.Path = strObject
    Dim outParameters = process.ExecMethod_("NumberOfInstances", inParameters)
    Dim StrHeaps = (outParameters.InstanceCount)
    num_TextBox.Text = StrHeaps
    For i = 0 To StrHeaps Step +1
        inParameters.Index = i

        inParameters.Property = "ZOBJNAME"
        outParameters = process.ExecMethod_("GetValue", inParameters)
        Dim Value1 As String = outParameters.Value

        inParameters.Property = "ZAVIS"
        outParameters = process.ExecMethod_("GetValue", inParameters)
        Dim Value2 As String = outParameters.Value

        ListView1.Items.Add(Value1).SubItems.Add(Value2)


    Next

End Sub