Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

MultiPing VBScript mit EingabeModus

Anleitung Microsoft

Mitglied: FaBMiN

FaBMiN (Level 2) - Jetzt verbinden

14.09.2005 um 11:14 Uhr, 15343 Aufrufe

<img src='/images/articles/3206ceea75a843f274c641376cd449c2-share.gif' align='default' hspace='0' vspace='0' border='0'>

<font class=code>
Dim inhalt(50)
Set MyShell = CreateObject("WScript.Shell")
Set MyFiles = CreateObject("Scripting.FileSystemObject")

If not MyFiles.FileExists("c:\Scripts\Logfile.txt") Then MyFiles.CreateTextFile("c:\Scripts\Logfile.txt")
Abfrage = MsgBox ("Wollen Sie IP-Adressen hinzufügen?", vbYesNo)
If Abfrage = vbYes Then
Do
Eingabe = InputBox("Geben Sie die neue(n) IP Adressen ein. Um den Ping Befehl auszuführen, klicken Sie auf abbrechen.")
IPS=IPS & Eingabe & chr(13) & chr(10)
loop Until Eingabe = ""
Set logfile = MyFiles.OpenTextFile("c:\Scripts\Logfile.txt",8)
logfile.write(IPS)
logfile.close
End If

Set InfoZeile = MyFiles.OpenTextFile("c:\Scripts\Logfile.txt",1)
Do
n=n+1
Inhalt(n) = InfoZeile.ReadLine
if Inhalt(n)="" then n=n-1
Loop Until InfoZeile.AtEndOfStream = True

For x = 1 to n
Proggi = "%comspec% /c ping.exe -n 4 -a" & " " & Inhalt(x) & " " & ">c:\Scripts\temp.txt"
Return = MyShell.Run(Proggi,0,True)
Set TempFile =MyFiles.OpenTextFile("c:\Scripts\temp.txt")
Abfrage = Tempfile.Readall
If instr(Abfrage, "ytes=") > 0 Then
Ausgabe = MsgBox("Ping an " + Inhalt(x) + " erfolgreich!", 1)
Else
Ausgabe = MsgBox("Host " + Inhalt(x) + " nicht erreichbar", 1)
End if
tempfile.close
If Ausgabe = 2 Then WScript.Quit
Next
</font>
Ähnliche Inhalte
VB for Applications
gelöst Vbscript Fehlercode: Object required (2)

Frage von aletri zum Thema VB for Applications ...

VB for Applications
gelöst Per vbscript xml Knoten an bestehenden Knoten anhängen (1)

Frage von aletri zum Thema VB for Applications ...

VB for Applications
gelöst HTML, VBScript: Bei Drop-Down-Auswahl bestimmte Radio-Buttons einblenden (3)

Frage von Yauhun zum Thema VB for Applications ...

VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Server-Hardware
Einem Stromausfall entgegen wirken (22)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Server-Hardware ...

Festplatten, SSD, Raid
PC stellt nach dem Bios ab (20)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...

Windows 7
Freeware MSI Tool (13)

Frage von uridium69 zum Thema Windows 7 ...

DSL, VDSL
gelöst Ständige Störungen - Internet (12)

Frage von gamerff zum Thema DSL, VDSL ...