Fehlermeldung in Windows-Systemlog

  • VB.NET

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

    Fehlermeldung in Windows-Systemlog

    Moin Moin zusammen,

    ich hab da mal wieder so ein merkwürdiges Problem.
    Auf meinem PC läuft ein Sicherungsprogramm namens Shadowprotect (Schattensicherungsprogramm).
    Dieses Programm kann nach einer Datensicherung ein Programm ausführen... jedoch erhalte ich, wenn ich meine Exe-Datei einstelle im Windows Systemlog (Bereich System) folgende Meldung:

    "Der Versuch von Benutzer Computername\Benutzer, Computer Computername neu zu starten bzw. herunterzufahren ist fehlgeschlagen."

    Hintergrund:
    Wenn die Datensicherung erfolgreich durchgeführt wurde, soll der PC heruntergefahren werden. Hier mal der Codeschnipsel den ich dafür verwende:

    VB.NET-Quellcode

    1. Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. ExecuteParams()
    3. 'ver = Application.ProductVersion
    4. Dim ergebnis As String = Await Task.Run(Function() set_dasi(gen, typ, ver))
    5. Label1.Text = ergebnis
    6. If ergebnis = "Datensicherung erfolgreich" Then
    7. If shutdown = True Then
    8. Dim myProcessStartInfo As New ProcessStartInfo("shutdown.exe", "-s -f -t 300")
    9. myProcessStartInfo.WorkingDirectory = "C:\Windows\system32\"
    10. Process.Start(myProcessStartInfo) 'C:\Windows\System32\
    11. End If
    12. 'Timer1.Enabled = True
    13. ElseIf ergebnis = "Webserverfehler" Then
    14. Me.Opacity = 100%
    15. Me.BackColor = Color.IndianRed
    16. Timer1.Enabled = True
    17. End If
    18. End Sub


    Gesamter Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Public gen As String
    6. Public typ As String
    7. Public shutdown As Boolean = False
    8. Public ver As String = "2.1.1.4"
    10. Private Function set_dasi(ByVal gen As String, ByVal typ As String, ByVal ver As String) As String
    11. Try
    12. Dim uriString As String = "http://192.168.10.10:8080/ext/dasi.php?gen=" + gen + "&typ=" + typ + "&ver=" + ver
    13. Dim myWebClient As New Net.WebClient
    14. myWebClient.Encoding = System.Text.Encoding.UTF8
    15. Dim ergebnis As String = myWebClient.DownloadString(uriString)
    16. Return CStr(ergebnis)
    17. Catch ex As Exception
    18. End Try
    19. End Function
    21. Public Sub ExecuteParams()
    22. Dim args As String()
    23. args = Environment.GetCommandLineArgs()
    25. For i As Integer = 1 To args.Length - 1
    26. Select Case args(i).ToLower
    28. Case "-?"
    29. MsgBox("-? Zeigt diese Information" & Chr(10) & Chr(13) & "-i Startet das Programm unsichtbar" & Chr(10) & Chr(13) & "-s Fährt den Computer nach 300 Sekunden herunter" & Chr(10) & Chr(13) & "-n für die Nachtsicherung" & Chr(10) & Chr(13) & "-d für die Dauersicherung" & Chr(10) & Chr(13) & "-v Zeigt die Programmversion an" & Chr(10) & Chr(13) & "xxx gibt die PC-Nummer vor", MsgBoxStyle.Information, "Parameterinformationen")
    30. Application.Exit()
    32. Case "-i"
    33. Me.Visible = False
    34. Me.ShowInTaskbar = False
    36. Case "-s"
    37. shutdown = True
    39. Case "-n"
    40. typ = "1"
    42. Case "-d"
    43. typ = "0"
    45. Case "-v"
    46. MsgBox("Programmversion " & ver & Chr(10) & Chr(13) & "Geschrieben von MIR" & Chr(10) & Chr(13) & "LANTECH Informationstechnik GmbH", MsgBoxStyle.Information, "Programmversion")
    47. Application.Exit()
    49. Case Else
    50. gen = args(i)
    51. End Select
    52. Next
    53. End Sub
    55. Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    56. ExecuteParams()
    57. 'ver = Application.ProductVersion
    58. Dim ergebnis As String = Await Task.Run(Function() set_dasi(gen, typ, ver))
    59. Label1.Text = ergebnis
    60. If ergebnis = "Datensicherung erfolgreich" Then
    61. If shutdown = True Then
    62. Dim myProcessStartInfo As New ProcessStartInfo("shutdown.exe", "-s -f -t 300")
    63. myProcessStartInfo.WorkingDirectory = "C:\Windows\system32\"
    64. Process.Start(myProcessStartInfo) 'C:\Windows\System32\
    65. End If
    66. 'Timer1.Enabled = True
    67. ElseIf ergebnis = "Webserverfehler" Then
    68. Me.Opacity = 100%
    69. Me.BackColor = Color.IndianRed
    70. Timer1.Enabled = True
    71. End If
    72. End Sub
    74. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    75. 'If shutdown = True Then
    76. 'Process.Start("C:\Windows\System32\shutdown.exe", "-s -t 300 -f")
    77. 'End If
    78. Application.Exit()
    79. End Sub
    81. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    82. Application.Exit()
    83. End Sub
    85. End Class



    Starte ich das Programm manuell mit übergabe (dasi-setter.exe 1 -d -s) funktioniert es, ebenfalls mit dem Herunterfahren.
    Lasse ich das Programm am Ende der Datensicherung laufen, erhalte ich die Meldung im Syslog.

    Jemand eine Idee wie man das lösen kann?

    Danke schon mal und Grüße,

    samson

    PS: Für alle die sich wundern warum da eine Weburl aufgerufen wird,... hier die Erklärung:
    Ich habe auf meinem Server der im Keller steht einen kleinen Webdienst laufen,...
    Hier werden alle Datensicherungen die erstellt wurden, per PHP in eine SQL Datenbank eingetragen, damit ich statistisch testen kann, wie oft die Datensicherung funktioniert hat.
    Dafür verwende ich diesen Code: (Falls jemand daran interesse hat, wie gesagt, alles im LAN)

    Spoiler anzeigen

    PHP-Quellcode

    1. <?php
    2. include("../inc/config.php");
    3. require("../func/mailer/class.phpmailer.php");
    5. if($_GET["gen"] != "" and $_GET["typ"] != "")
    6. {
    7. $computerid = stripslashes($_GET["gen"]);
    8. $typ = stripslashes($_GET["typ"]);
    9. $ver = stripslashes($_GET["ver"]);
    11. if($_GET["typ"] == "1")
    12. {
    13. mysql_query("UPDATE ms_dasi SET dasi_n_ok = '".time()."' WHERE computerid = '".$computerid."'");
    14. }
    15. else
    16. {
    17. mysql_query("UPDATE ms_dasi SET dasi_ok = '".time()."' WHERE computerid = '".$computerid."'");
    18. }
    20. if($ver != "")
    21. mysql_query("UPDATE ms_dasi SET exe_version = '".$ver."' WHERE computerid = '".$computerid."'");
    23. mysql_query("INSERT INTO ms_dasi_log (computerid, letzte_aktion, typ) VALUES ('".$computerid."', '".time()."', '".$typ."''')");
    26. echo "Datensicherung erfolgreich";
    27. }
    28. else
    29. {
    30. echo "Webserverfehler";
    31. }
    32. ?>

    Nein! Doch! OHH!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „samson“ ()

    Guck dir mal per Thread.CurrentPrincipal an, mit welchem User dein Programm gestartet wird. Ggf. liegts an fehlenden Rechten.

    Edit: Ich glaube, ich bin retarded, habe das "Computername\Benutzer" vollkommen ignoriert. Vergiss das.

    "Der Versuch von Benutzer Computername\Benutzer, Computer Computername neu zu starten bzw. herunterzufahren ist fehlgeschlagen."


    Das Programm versucht mit dem Benutzer namens Computername\Benutzer den Pc herunterzufahren (und nicht mit PU), dieser darf das aber nicht.
    Das ist meine Signatur und sie wird wunderbar sein!

    @Rinecamo Danke für den Tipp, leider jedoch nein.
    Programm funktioniert einfach.
    Kann es daran liegen das das Sicherungsprogramm als Dienst ausgeführt wird?
    Hab es nun schon über eine Batch versucht... Sicherung ruft Batch auf, Batch löst shutdown aus und startet dann mein tool... Ohne Erfolg (gleiche Meldung).
    Nein! Doch! OHH!

Facebook
Telefonspende