www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Probleme mit Prozess entfernt starten
Autor:  RolandStirnimann
E-mail:  Antworten bitte nur in das Forum!
Datum:  10.08.2004 14:50:14
Subject:  Probleme mit Prozess entfernt starten
Bezug zum Buch:  Windows Scripting lernen 2. Aufl.
Message:  Hallo

Ich habe mit VB.Net eine .exe erstellt mit folgendem Code, der mir ein DTS Task von SQL Server startet:

Imports DTS
Module StartDTSPackage
    Dim pkg As DTS.Package
    Sub Main()
        Try
            pkg = New DTS.Package
            pkg.LoadFromSQLServer("DB001", "infradb_read", _
            "infrareader", _
DTSSQLServerStorageFlags.DTSSQLStgFlag_UseTrustedConnection, _
            "", "", "", "ExcelInventarDataExport", Nothing)
            pkg.Execute()
        Catch exc As System.Runtime.InteropServices.COMException
            Console.WriteLine(exc.Message)
        Catch exc As Exception
            Console.WriteLine(exc.Message)
        Finally
            Console.WriteLine("Die Daten wurden erfolgreich verarbeitet.")
        End Try
    End Sub
End Module

Starte ich das exe lokal auf dem DB Rechner, also ueber eine Terminal Session, so funktioniert es einwandfrei.

Um dies aber von einem anderen Rechner aus zu starten, erstellte ich folgendes Script aus dem Buch:

Dim objWMIService, Computer, ProcessName, Fehler, intProcessID

Computer = "DB001"
ProcessName = "E:\SQL-Programs\StartInventarDTSPackage\StartInventarDTSPackage.exe"

Set objWMIService = GetObject("winmgmts:" & _
     "{impersonationLevel=impersonate}!\\" & _
     Computer & "\root\cimv2:Win32_Process")
Fehler = objWMIService.Create(ProcessName, Null, Null, intProcessID)

If Fehler = 0 Then
     WScript.Echo "Die Anwendung wurde erfolgreich ausgefuehrt."
Else
     WScript.Echo "ERROR: Beim Ausfuehren der Anwendung ist leider ein Fehler aufgetreten."
End If

Beim Ausfuehren des Scripts kommt keine Fehlermeldung, da der Returncode 0 ist. Der DTS Task wird aber nicht gestartet.

Hat mir jemand einen Tipp zu diesem Problem? Waere sehr dankbar.

Gruss aus der Schweiz
Roland Stirnimann

Antworten

  Zurück zum Forum



 Klassische Programmierung (Scripting, COM) -- Windows Scripting, VBScript, VB6, u.a.
 Probleme mit Prozess entfernt starten von RolandStirnimann  am 10.8.2004 2:50:14 PM
 Re: Probleme mit Prozess entfernt starten von RolandStirnimann  am 10.8.2004 7:38:22 PM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019