Namespace remote
    Class cmd
        Shared mo As New System.Management.ManagementObject
 
      Shared Sub Application(ByVal workstation As String, ByVal program As _
        String)
            Dim scope As System.Management.ManagementScope = New _
            System.Management.ManagementScope("\\" & workstation & _
            "\root\cimv2")
            Dim mc As System.Management.ManagementClass = New _
            System.Management.ManagementClass("Win32_Process")
            Dim mbo As System.Management.ManagementBaseObject
 
            mo.Scope = scope
            mo.Scope.Options.EnablePrivileges = True
            mo.Scope.Options.Username = workstation & "\User"
            mo.Scope.Options.Password = "****"
            mo.Scope.Connect()
            mbo = mc.GetMethodParameters("Create")
            mbo("CommandLine") = program
            ' Execute the method
            mo.InvokeMethod("Create", mbo, Nothing)
        End Sub
end class
end namespace