Ferninstallation im LAN

    Dim strComputer As String = test2k
    Dim strPkgLoc As String = c:\test.msi

    Dim sc As System.Management.ManagementScope

    sc = New System.Management.ManagementScope(// & strComputer & /root/cimv2)
    sc.Options.EnablePrivileges = True

   -> W2k
    sc.Options.Authentication = AuthenticationLevel.Connect
   -> XP
   ->sc.Options.Authentication = AuthenticationLevel.Packet


    sc.Options.Impersonation = ImpersonationLevel.Impersonate
    sc.Options.Username = Administrator
    sc.Options.Password = adminpwd

    sc.Connect()


    Dim op As New Management.ObjectGetOptions

    Dim Args() As Object = {strPkgLoc, Nothing, Nothing}
    
    Dim observer As New Management.ManagementOperationObserver
    Dim pth As New Management.ManagementPath(Win32_Product)
    Dim mc As New Management.ManagementClass(sc, pth, Nothing)

    mc.InvokeMethod(observer, Install, Args)