Prozess starten aus einem Windows Service heraus mit Argumenten

  • VB.NET
  • .NET (FX) 1.0–2.0

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Mokki.

    Prozess starten aus einem Windows Service heraus mit Argumenten

    8o Hi Leute,

    war jetzt lange zeit nicht mehr hier im Forum, hatte jetzt leider mein Passwort und Useraccount vergessen und deshalb nun neu dabei.
    Ich stehe aktuell vor folgendem Problem.
    Es soll aus einem Windows Service ein Prozess gestartet werden mit zusätzlichen Argumenten. folgenden Code habe ich (dieser geht auch schon)

    Quellcode

    1. Dim UserTokenHandle As IntPtr = IntPtr.Zero
    2. WindowsApi.WTSQueryUserToken(WindowsApi.WTSGetActiveConsoleSessionId, UserTokenHandle)
    3. Dim ProcInfo As New WindowsApi.PROCESS_INFORMATION
    4. Dim StartInfo As New WindowsApi.STARTUPINFOW
    6. StartInfo.cb = CUInt(Runtime.InteropServices.Marshal.SizeOf(StartInfo))
    8. WindowsApi.CreateProcessAsUser(UserTokenHandle, "C:\PROGRA~1\Openssl\openssl.exe", IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, False, 0, IntPtr.Zero, Nothing, StartInfo, ProcInfo)
    9. If Not UserTokenHandle = IntPtr.Zero Then
    10. WindowsApi.CloseHandle(UserTokenHandle)
    11. End If

    leider weiß ich nicht wo ich die Argumente unterbringen kann, zum testen habe ich version>>version.txt verwendet, dabei sollte openssl eigentlich die version in eine txt datei schreiben.
    Zum Hintergrund: der Dienst schaut in einem Ordner und verschlüsselt eine bestimmte Datei mit openssl und sendet diese an einen weiteren Prozess, dies nur als Hintergrund.
    Die Verschlüsselung per cmd funktioniert schon, nun möchte ich dies halt in dem Dienst umsetzen.

    WindowsAPI Class

    Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class WindowsApi
    4. <DllImport("kernel32.dll", EntryPoint:="WTSGetActiveConsoleSessionId", SetLastError:=True)>
    5. Public Shared Function WTSGetActiveConsoleSessionId() As UInteger
    6. End Function
    8. <DllImport("Wtsapi32.dll", EntryPoint:="WTSQueryUserToken", SetLastError:=True)>
    9. Public Shared Function WTSQueryUserToken(ByVal SessionId As UInteger, ByRef phToken As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    10. End Function
    12. <DllImport("kernel32.dll", EntryPoint:="CloseHandle", SetLastError:=True)>
    13. Public Shared Function CloseHandle(<InAttribute()> ByVal hObject As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    14. End Function
    16. <DllImport("advapi32.dll", EntryPoint:="CreateProcessAsUserW", SetLastError:=True)>
    17. Public Shared Function CreateProcessAsUser(<InAttribute()> ByVal hToken As IntPtr,
    18. <InAttribute(), MarshalAs(UnmanagedType.LPWStr)> ByVal lpApplicationName As String,
    19. ByVal lpCommandLine As System.IntPtr,
    20. <InAttribute()> ByVal lpProcessAttributes As IntPtr,
    21. <InAttribute()> ByVal lpThreadAttributes As IntPtr,
    22. <MarshalAs(UnmanagedType.Bool)> ByVal bInheritHandles As Boolean,
    23. ByVal dwCreationFlags As UInteger,
    24. <InAttribute()> ByVal lpEnvironment As IntPtr,
    25. <InAttribute(), MarshalAsAttribute(UnmanagedType.LPWStr)> ByVal lpCurrentDirectory As String,
    26. <InAttribute()> ByRef lpStartupInfo As STARTUPINFOW,
    27. <OutAttribute()> ByRef lpProcessInformation As PROCESS_INFORMATION) As <MarshalAs(UnmanagedType.Bool)> Boolean
    28. End Function
    30. <StructLayout(LayoutKind.Sequential)>
    31. Public Structure SECURITY_ATTRIBUTES
    32. Public nLength As UInteger
    33. Public lpSecurityDescriptor As IntPtr
    34. <MarshalAs(UnmanagedType.Bool)>
    35. Public bInheritHandle As Boolean
    36. End Structure
    38. <StructLayout(LayoutKind.Sequential)>
    39. Public Structure STARTUPINFOW
    40. Public cb As UInteger
    41. <MarshalAs(UnmanagedType.LPWStr)>
    42. Public lpReserved As String
    43. <MarshalAs(UnmanagedType.LPWStr)>
    44. Public lpDesktop As String
    45. <MarshalAs(UnmanagedType.LPWStr)>
    46. Public lpTitle As String
    47. Public dwX As UInteger
    48. Public dwY As UInteger
    49. Public dwXSize As UInteger
    50. Public dwYSize As UInteger
    51. Public dwXCountChars As UInteger
    52. Public dwYCountChars As UInteger
    53. Public dwFillAttribute As UInteger
    54. Public dwFlags As UInteger
    55. Public wShowWindow As UShort
    56. Public cbReserved2 As UShort
    57. Public lpReserved2 As IntPtr
    58. Public hStdInput As IntPtr
    59. Public hStdOutput As IntPtr
    60. Public hStdError As IntPtr
    61. End Structure
    63. <StructLayout(LayoutKind.Sequential)>
    64. Public Structure PROCESS_INFORMATION
    65. Public hProcess As IntPtr
    66. Public hThread As IntPtr
    67. Public dwProcessId As UInteger
    68. Public dwThreadId As UInteger
    69. End Structure
    71. End Class


    Bin über jede Hilfe Dankbar
    If the facts don't fit the theory, change the facts. --Albert Einstein

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „p0150n“ ()

    Hallo @p0150n!

    Zur Lösung deines Problems: Du hast für CreateProcessAsUser eine falsche Signatur verwendet. Wenn du dir die MSDN-Spezifikation mal ansiehtst, dann nimm die Funktion als 3. Parameter keinen IntPtr oder sowas, sondern ein LPTSTR.

    Hier ein Beispiel aus Stackoverflow.com.
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

    hmm, danke schon mal für deine Antwort. Bin leider schon etwas lange raus und habe bisher das nicht ganz verstanden was du meinst.
    Auf jedenfall muss ich schon mal den Parameter lpCommandLine in der funktion createprocessasuser mit einem String verknüpfen.

    magst mir da noch einmal eine hilfestellung geben ? besten Dank
    If the facts don't fit the theory, change the facts. --Albert Einstein

    p0150n schrieb:

    mit einem String verknüpfen
    Im Prinzip das, was ich gesagt habe (nur einfacher erklärt ;) )

    Als allgemeiner Tipp: Wenn du eine WinAPI Funktion hast, schau mal auf pinvoke.net vorbe und such nach der Funktion. Da findest du eingetlich immer die korrekte VB und C# Signatur.

    Zu CreatProcessAsUser: Wie du hier auf pinvoke.net siehst, wird hier beim dritten Parameter nicht, wie bei dir ein IntPtr als Datentyp verwendet sondern ein String. Das wars eingentlich schon.

    Lg Radinator
    In general (across programming languages), a pointer is a number that represents a physical location in memory. A nullpointer is (almost always) one that points to 0, and is widely recognized as "not pointing to anything". Since systems have different amounts of supported memory, it doesn't always take the same number of bytes to hold that number, so we call a "native size integer" one that can hold a pointer on any particular system. - Sam Harwell

    Danke für die gute Seite werde ich mir merken.
    habe meinen Quellcode nun wie folgt angepasst:
    W Service:

    VB.NET-Quellcode

    1. ​ Dim UserTokenHandle As IntPtr = IntPtr.Zero
    2. WindowsApi.WTSQueryUserToken(WindowsApi.WTSGetActiveConsoleSessionId, UserTokenHandle)
    3. Dim ProcInfo As New WindowsApi.PROCESS_INFORMATION
    4. Dim StartInfo As New WindowsApi.STARTUPINFOW
    5. StartInfo.cb = CUInt(Runtime.InteropServices.Marshal.SizeOf(StartInfo))
    7. WindowsApi.CreateProcessAsUser(UserTokenHandle, "C:\Windows\System32\cmd.exe", "/c ping 127.0.0.1 ", IntPtr.Zero, IntPtr.Zero, False, 0, IntPtr.Zero, Nothing, StartInfo, ProcInfo)
    8. If Not UserTokenHandle = IntPtr.Zero Then
    9. WindowsApi.CloseHandle(UserTokenHandle)
    10. End If


    Windows API (wie folgt angepasst)

    VB.NET-Quellcode

    1. <DllImport("advapi32.dll", EntryPoint:="CreateProcessAsUserW", SetLastError:=True)>
    2. Public Shared Function CreateProcessAsUser(<InAttribute()> ByVal hToken As IntPtr,
    3. <InAttribute(), MarshalAs(UnmanagedType.LPWStr)> ByVal lpApplicationName As String,
    4. ByVal lpCommandLine As String,
    5. <InAttribute()> ByVal lpProcessAttributes As IntPtr,
    6. <InAttribute()> ByVal lpThreadAttributes As IntPtr,
    7. <MarshalAs(UnmanagedType.Bool)> ByVal bInheritHandles As Boolean,
    8. ByVal dwCreationFlags As UInteger,
    9. <InAttribute()> ByVal lpEnvironment As IntPtr,
    10. <InAttribute(), MarshalAsAttribute(UnmanagedType.LPWStr)> ByVal lpCurrentDirectory As String,
    11. <InAttribute()> ByRef lpStartupInfo As STARTUPINFOW,
    12. <OutAttribute()> ByRef lpProcessInformation As PROCESS_INFORMATION) As <MarshalAs(UnmanagedType.Bool)> Boolean
    13. End Function​


    die CMD öffnet sich aber die Parameter werden leider nicht übergeben. Scheint zu warm im Büro zu sein, finde den Fehler noch nicht. ?(
    If the facts don't fit the theory, change the facts. --Albert Einstein

    prozess mit parametern ausführen

    Ist das überhaupt möglich was ich versuche oder gibt es hier irgendwelche Grenzen. Habe in dem Dienst jetzt auch die Kommunikation zwischen Dienst und Desktop aktiviert, soll zwar ein Sicherheitsrisiko sein,aber erstmal für den Test reicht es. Jemand ein ähnliches Problem schon mal gehabt?
    If the facts don't fit the theory, change the facts. --Albert Einstein

    Nix zu machen, bin schon seit 2 tagen jetzt am probieren und Code verstehen, leider noch keinen Erfolg.
    If the facts don't fit the theory, change the facts. --Albert Einstein

    Die Windows API

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    3. Imports DisplayMessage.WindowsApi
    5. Public Class WindowsApi
    7. <DllImport("kernel32.dll", EntryPoint:="WTSGetActiveConsoleSessionId", SetLastError:=True)>
    8. Public Shared Function WTSGetActiveConsoleSessionId() As UInteger
    9. End Function
    11. <DllImport("Wtsapi32.dll", EntryPoint:="WTSQueryUserToken", SetLastError:=True)>
    12. Public Shared Function WTSQueryUserToken(ByVal SessionId As UInteger, ByRef phToken As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    13. End Function
    15. <DllImport("kernel32.dll", EntryPoint:="CloseHandle", SetLastError:=True)>
    16. Public Shared Function CloseHandle(<InAttribute()> ByVal hObject As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    17. End Function
    19. <DllImport("advapi32.dll", EntryPoint:="CreateProcessAsUserW", SetLastError:=True)>
    20. Public Shared Function CreateProcessAsUser(<InAttribute()> ByVal hToken As IntPtr,
    21. <InAttribute(), MarshalAs(UnmanagedType.LPWStr)> ByVal lpApplicationName As String,
    22. <InAttribute(), MarshalAs(UnmanagedType.LPWStr)> ByVal lpCommandLine As String,
    23. <InAttribute()> ByVal lpProcessAttributes As IntPtr,
    24. <InAttribute()> ByVal lpThreadAttributes As IntPtr,
    25. <MarshalAs(UnmanagedType.Bool)> ByVal bInheritHandles As Boolean,
    26. ByVal dwCreationFlags As UInteger,
    27. <InAttribute()> ByVal lpEnvironment As IntPtr,
    28. <InAttribute(), MarshalAsAttribute(UnmanagedType.LPWStr)> ByVal lpCurrentDirectory As String,
    29. <InAttribute()> ByRef lpStartupInfo As STARTUPINFOW,
    30. <OutAttribute()> ByRef lpProcessInformation As PROCESS_INFORMATION) As <MarshalAs(UnmanagedType.Bool)> Boolean
    31. End Function
    33. <StructLayout(LayoutKind.Sequential)>
    34. Public Structure SECURITY_ATTRIBUTES
    35. Public nLength As UInteger
    36. Public lpSecurityDescriptor As IntPtr
    37. <MarshalAs(UnmanagedType.Bool)>
    38. Public bInheritHandle As Boolean
    39. End Structure
    41. <StructLayout(LayoutKind.Sequential)>
    42. Public Structure STARTUPINFOW
    43. Public cb As UInteger
    44. <MarshalAs(UnmanagedType.LPWStr)>
    45. Public lpReserved As String
    46. <MarshalAs(UnmanagedType.LPWStr)>
    47. Public lpDesktop As String
    48. <MarshalAs(UnmanagedType.LPWStr)>
    49. Public lpTitle As String
    50. Public dwX As UInteger
    51. Public dwY As UInteger
    52. Public dwXSize As UInteger
    53. Public dwYSize As UInteger
    54. Public dwXCountChars As UInteger
    55. Public dwYCountChars As UInteger
    56. Public dwFillAttribute As UInteger
    57. Public dwFlags As UInteger
    58. Public wShowWindow As UShort
    59. Public cbReserved2 As UShort
    60. Public lpReserved2 As IntPtr
    61. Public hStdInput As IntPtr
    62. Public hStdOutput As IntPtr
    63. Public hStdError As IntPtr
    64. End Structure
    66. <StructLayout(LayoutKind.Sequential)>
    67. Public Structure PROCESS_INFORMATION
    68. Public hProcess As IntPtr
    69. Public hThread As IntPtr
    70. Public dwProcessId As UInteger
    71. Public dwThreadId As UInteger
    72. End Structure
    74. Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
    75. hHandle As Long, ByVal dwMilliseconds As Long) As Long
    77. Public Declare Function GetExitCodeProcess Lib "kernel32" _
    78. (ByVal hProcess As Long, ByVal lpExitCode As Long) As Long
    80. Public Const NORMAL_PRIORITY_CLASS = &H20&
    81. Public Const INFINITE = -1&
    83. End Class

    in den Windows Service

    VB.NET-Quellcode

    1. Dim UserTokenHandle As IntPtr = IntPtr.Zero
    2. WindowsApi.WTSQueryUserToken(WindowsApi.WTSGetActiveConsoleSessionId, UserTokenHandle)
    4. Dim ProcInfo As New WindowsApi.PROCESS_INFORMATION
    5. Dim StartInfo As New WindowsApi.STARTUPINFOW
    7. Dim HK
    8. Dim strCommandLine
    9. strCommandLine = Environment.CommandLine
    10. strCommandLine = " /c ping 127.0.0.1"
    11. HK = Chr(34)
    13. StartInfo.cb = CUInt(Runtime.InteropServices.Marshal.SizeOf(StartInfo))
    14. WindowsApi.CreateProcessAsUser(UserTokenHandle, "C:\Windows\System32\cmd.exe", strCommandLine, IntPtr.Zero, IntPtr.Zero, True, 0, IntPtr.Zero, "C:\Windows\System32\", StartInfo, ProcInfo)
    15. If Not UserTokenHandle = IntPtr.Zero Then
    16. WindowsApi.CloseHandle(UserTokenHandle)
    17. End If
    If the facts don't fit the theory, change the facts. --Albert Einstein

Facebook
Telefonspende