Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Entwicklung Visual Studio

GELÖST

Result von msg.exe abfragen

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

18.09.2013 um 11:37 Uhr, 1381 Aufrufe, 2 Kommentare, 1 Danke

Hallo miteinander,

mit einem Code werden alle PCs (Win7) und die daran angemeldeten User im Netzwerk abgefragt. Diese Infos werden in eine CheckedListBox geladen (Formatierung: vbTab & User & vbTab & vbTab & PC). An darin ausgewählte Personen kann man dann eine Nachricht (mit msg.exe) senden (ohne, dass auf der anderen Seite ein Programm außer den Bord-Mitteln läuft). Die Nachricht wird versendet mit folgendem Code:

01.
Public Sub NachrichtVersenden() 
02.
 
03.
        Dim p1 As New System.Diagnostics.Process 
04.
        Dim applicationPath As String = Application.StartupPath 
05.
        Dim executablePath As String = applicationPath & "\msg.exe" 
06.
        Dim strEmpfaengerDaten As String() 
07.
        Dim Nachricht As String = Nothing 
08.
 
09.
        For Each Item As String In chlsBoxEmpfaenger.CheckedItems 
10.
 
11.
            strEmpfaengerDaten = Split(Item, vbTab) 
12.
 
13.
            'MsgBox(strEmpfaengerDaten.Length) 
14.
            'Kürzel 
15.
            'MsgBox(strEmpfaengerDaten(1)) 
16.
            'PC-Name 
17.
            'MsgBox(strEmpfaengerDaten(3)) 
18.
 
19.
            Nachricht = txtBoxNachricht.Text 
20.
 
21.
            If My.Computer.Network.Ping(strEmpfaengerDaten(3), 500) = True Then 
22.
 
23.
                With p1.StartInfo 
24.
 
25.
                    .FileName = executablePath 
26.
 
27.
                    If strEmpfaengerDaten(1) = "" Then 
28.
                        strEmpfaengerDaten(1) = "*" 
29.
                    End If 
30.
                    .Arguments = strEmpfaengerDaten(1) & " /SERVER:" & strEmpfaengerDaten(3) & " /time:3600 /v " & Nachricht 
31.
                    .UseShellExecute = False 
32.
                    .ErrorDialog = False 
33.
                    .RedirectStandardOutput = True 
34.
                    .RedirectStandardError = True 
35.
                    .CreateNoWindow = True 
36.
 
37.
                End With 
38.
                With p1 
39.
                    .Start() 
40.
                    .WaitForExit() 
41.
                End With 
42.
            End If 
43.
 
44.
        Next 
45.
 
46.
        MsgBox("Nachricht" & vbCrLf & vbCrLf & Nachricht & vbCrLf & vbCrLf & "wurde versendet.", , "Info") 
47.
        UnCheckAll() 
48.
        txtBoxNachricht.Text = "" 
49.
 
50.
    End Sub
Das klappt auch (soweit).
Ich würde nun gerne feststellen können, ob beim Übermitteln der Nachricht ein Fehler aufgetreten ist.
Bei der Abfrage der PCs funktioniert das (so was ähnliches) mit

01.
With p0.StartInfo 
02.
                .CreateNoWindow = True 
03.
                .FileName = "net.exe" 
04.
                .Arguments = " view" 
05.
                .RedirectStandardOutput = True 
06.
                .UseShellExecute = False 
07.
 
08.
                With p0 
09.
                    .Start() 
10.
                    .WaitForExit(1000) 
11.
                    Dim result As String = "" 
12.
                    While .StandardOutput.Peek > -1 
13.
                        result = .StandardOutput.ReadLine() 
14.
...
Ich habe versucht, das entsprechend anzupassen. Aber irgendwie scheint msg.exe kein Feedback bereitzustellen...?

Fragen:
Wie kann ich ein Result von msg.exe (zumindest Fehler) auswerten?
Gibt es eine einfache Alternative zu msg.exe?

Ich freue mich auf Hinweise.

Neugierige Grüße,
Andreas
Mitglied: Nobody-Is-Perfect
18.09.2013, aktualisiert um 14:25 Uhr
Hi Andreas,

ohne den Code jetzt nachstellen zu wollen, hätte ich aber eine Idee.
Jeder Process liefert einen ExitCode (nachzulesen: hier ).
Jedes so ausgeführte Programm hat Rückgabewerte. Der Rückgabewert 0 bedeutet für gewöhnlich ohne Fehler beendet.

Ich hoffe, das hilft.

Grüße vom Nobody
Bitte warten ..
Mitglied: ahstax
18.09.2013 um 14:32 Uhr
Danke, das wars!!!
Bitte warten ..
Ähnliche Inhalte
Windows 7
Msg.exe für Domain User erlauben
gelöst Frage von killtecWindows 79 Kommentare

Hallo, wenn ich über msg eine Nachricht per Administrator an ein Remote System sende, klappt alles wunderbar. Wenn ich ...

VB for Applications
VBA Word Formularfelder Effekt von Bearbeitungseinschränkung auf Result-Änderung
gelöst Frage von tombola22VB for Applications3 Kommentare

Hallo zusammen, ich schreibe momentan an einem Word-Makro, mit dem ich ausgehend von einer existierenden Tabelle, weitere - bis ...

Exchange Server
Powershell Archivmailbox abfrage Abfrage
Frage von Clubby84Exchange Server5 Kommentare

Hallo zusammen, möchte gerne eine Ausgabe in eine Datei haben, mit allen Mailboxen, bei denen das Archiv noch nicht ...

Datenbanken
MYSQL Abfrage
gelöst Frage von datadexxDatenbanken20 Kommentare

Halo an alle MySQL Spezialisten! Wie kann ich denn am besten folgende Werte abfragen und berechnen? Ausgang für die ...

Neue Wissensbeiträge
Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 5 StundenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 10 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 4 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement22 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk13 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

Windows Server
Terminal Server 2016 erkennt Berechtigungen nicht
gelöst Frage von Thomas2Windows Server10 Kommentare

Hallo Administratoren, folgendes Problem stellt sich dar: Es gibt zwei Windows Server 2016, die als Terminal Server fungieren. Jetzt ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS10 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...