Forum: Visual Basic |
Thema:
Laufzeitfehler 424 Objekt erforderlich |
Von:
G. Guest (
04.02.2004 09:19) |
das ist mein source code:
Function ping(server)
Set wshshell = CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
filname = "ping.txt"
Command = "%COMSPEC% /C PING.EXE" & server & " > %TEMP%\" & filname
result = wshshell.run(Command, 0, True)
temp = fs.GetSpecialFolder(2).Path
Set file = fs.OpenTextFile(temp & "\" & FileName)
ping = file.ReadAll
file.Close
fs.Delete temp & "\" & FileName, True
end sub
ich hoffe mir kann einer helfen. danke im voraus.
Betreff |
Von |
Datum |
|
|
G.
Guest
|
04.02.2004 09:19 |
|
|
G.
Guest
|
06.02.2004 10:58 |
|
|
G.
Guest
|
16.03.2004 13:46 |
|
|
G.
Guest
|
16.04.2004 18:14 |
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!