Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

überprüfung ob anderer Pc an?

überprüfung ob anderer Pc an?
06.02.2004 15:06:36
Markus H.
Es gibt ja über die CMD die möglichkeit per net send oder ping -a zu sehen ob ein rechner im netzwerk an ist oder nicht.
gibt es auch eine solche möglichkeit mit excel?
MfG
markus

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: überprüfung ob anderer Pc an?
06.02.2004 15:10:57
PeterB
mit VBA kannst du IMHO auch aus excel einen ping absetzen: nimmst du Shell [Befehl]

grüße peter
wie geht das genau?
06.02.2004 15:13:55
Markus H.
moin,
hab doch nicht so die ahnung von VBA ..
ich hab schon nen script mit dem ich über excel nachrichten schicken kann! aber ob diese ankommen oder nicht sehe ich nicht! ich bräuchte irgend einen statusreport, der mir sagt, ob die nachricht nun angekommen und somit der rechner an ist, oder nicht.
weißt wie ich mein?
MfG
Markus
AW: wie geht das genau?
06.02.2004 15:17:27
PeterB
ist jetzt zwar aus nem reinem VBA, aber das müsste anzupassen sein:

Sub Netsend()
Dim Message
Dim ComputerName
Dim PetersUserName As String
PetersUserName = fOSUserName()
Message = Nachricht
ComputerName = Adresse
If Shell("Net Send " & Trim(ComputerName) & " " & "Nachricht von " & PetersUserName & ": " & vbCrLf & Message) Then
meldung.Caption = "Erfolgreich gesendet!"
Else
meldung.Caption = "Nicht gesendet!!"
End If
End Sub

das problem bei net send ist, daß du keine rückmeldung bekommst, ob das ding (!)angekommen(!) ist. vom losschicken redet keiner ;-)
ich würde pingen, da bekommst du ja ne rückmeldung.
wie du genau dat dingen an excel-vba anpasst, musst du evtl. spielen, da kenn ich mich auch net so aus.
peter
Anzeige
hmm kanns jetzt nicth testen aber
06.02.2004 16:43:31
Markus H.
ich versteh das script nicht.
ich möchte z.b. von meinem Rechner A03 testen ob der Rechner F06 an ist!
wie würde das script dann aussehn?
MfG & Danke für die Hilfe
Markus
probier das mal
06.02.2004 18:19:58
y
hi Markus,
das schwerste war nicht das pingen und auslesen aus der txt datei sondern das warten auf das ende des shellscripts :-(
aber jetzt müsste es funktionieren
du musst nur in der ersten zeile den zu prüfenden rechnernamen eingeben ( kann man natürlich auch aus 'ner zelle auslesen ;-)

Sub pruefen()
Rechner = "Micha" ' hier bitte den rechnernamen eintragen
ShellAndWait ("CMD.EXE /C " & "ping " & Rechner & " > C:\Test.txt")
Close #1
Open "c:\Test.txt" For Input As #1
Input #1, Textzeile
If Left(Textzeile, 4) = "Ping" Then
MsgBox ("Der Rechner " & Rechner & " ist nicht erreichbar")
Else
MsgBox ("Der Rechner " & Rechner & " ist erreichbar")
End If
Close #1
Kill "c:\Test.txt"
End Sub


Function ShellAndWait(FileName As String)
Dim objScript
Set objScript = CreateObject("WScript.Shell")
ShellApp = objScript.Run(FileName, 1, True)
ShellAndWait = True
End Function

cu Micha
Anzeige
nettes Teil! :-) oT
06.02.2004 18:32:55
Bert
ot
danke :-) o.t.
06.02.2004 18:49:36
y
...
genial.. super vielen dank!
06.02.2004 18:37:12
Markus H.
echt genial! doppel + an dich!
mfG
Markus
nachtrag: FRAGE
06.02.2004 18:44:10
Markus H.
Moin,
hab jetzt ne script +ber das ich nachrichten verschicken kann.
jetzt wäre es super wenn ich dein script in ne if schleife einbauen könnt
if rechner erreichbar
mein script
else
msgbox "senden ist im moment nicht möglich"

weißt wie ich mein?
MfG
Markus
AW: nachtrag: FRAGE
06.02.2004 18:48:51
y
hi Markus,
du brauchst doch nur das
-----> MsgBox ("Der Rechner " & Rechner & " ist erreichbar")
ersetzen mit dem aufruf deines codes
that's all
cu Micha
klingt eigentilch logisch! vielen lieben dank!
06.02.2004 19:00:09
Markus H.
OT
danke für die rückmeldung o.t.
06.02.2004 19:02:50
y
...

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige