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

gelöst Ping Script Problem - vbscript

Mitglied: m0nstar

m0nstar (Level 1) - Jetzt verbinden

17.06.2010 um 10:11 Uhr, 7332 Aufrufe, 2 Kommentare

Frage zu meinem Programm!

Hallo,

habe ein kleines Programm geschrieben, was es mir ermöglichen soll einen Computer alle 2 Sekunden anzupingen, dies in einer TXT zu speichern. Nun zu meinem Problem ich versuche grad, dass wenn der PC offline ist mir eine eMail zusenden zulassen. Das Problem ist nun ich will nicht alle 2 Sekunden eine email sondern nur einmal.

In meinem Programm ist ein Fehler, es kommt immer Objekt erforderlich [string: "ON"]

Vllt. kann ja jemand mal drüber schauen und mir eventuell helfen.

01.
	PingForever strHost, strFile 
02.
 
03.
	Sub PingForever(strHost, outputfile) 
04.
		Dim Output, Shell, strCommand, ReturnCode 
05.
 
06.
		Set Output = CreateObject("Scripting.FileSystemObject").OpenTextFile(outputfile, 8, True) 
07.
		Set Shell = CreateObject("wscript.shell") 
08.
		strCommand = "ping -n 1 -w 300 " & strHost 
09.
		SET FLAG0 = "ON" 
10.
		While(True) 
11.
			ReturnCode = Shell.Run(strCommand, 0, True)      
12.
			If ReturnCode = 0 Then 
13.
				Output.WriteLine Date() & " - " & Time & " | " & strHost & " - ONLINE" 
14.
				SET FLAG0 = "ON" 
15.
			Else 
16.
				Output.WriteLine Date() & " - " & Time & " | " & strHost & " - OFFLINE" 
17.
				IF FLAG0 = "ON" THEN 
18.
				   SET FLAG0 = "OFF" 
19.
				   Set objEmail = CreateObject("CDO.Message") 
20.
					objEmail.From = "test@test.com" 
21.
					objEmail.To = "test@test.com" 
22.
					objEmail.Subject = "PC " & strHost & " nicht erreichbar"  
23.
					objEmail.Textbody = strText 
24.
					objEmail.Configuration.Fields.Item _ 
25.
						("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
26.
					objEmail.Configuration.Fields.Item _ 
27.
						("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ 
28.
							"smtpip"  
29.
					objEmail.Configuration.Fields.Item _ 
30.
						("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
31.
					objEmail.Configuration.Fields.Update 
32.
					objEmail.Send 
33.
				END IF 
34.
				 
35.
			End If 
36.
			Wscript.Sleep 2000 
37.
		Wend 
38.
	End Sub
Danke schonmal für die hilfe.

Gruß,
m0nstar
Mitglied: bastla
17.06.2010 um 10:22 Uhr
Hallo m0nstar!

Da ja "FLAGO" nur eine ganz gewöhnliche String-Variable sein soll, ist für die Wertzuweisung (zB in Zeile 9) kein "SET" erforderlich (das wird, wie auch aus der Fehlermeldung ersichtlich, nur für die Erstellung von Objekten benötigt) ...

Grüße
bastla
Bitte warten ..
Mitglied: m0nstar
17.06.2010 um 10:29 Uhr
ach danke bastla jetzt glaub ich läuft es auch...so klein kann der fehler sein^^
Bitte warten ..
Ähnliche Inhalte
Entwicklung
Ping per Lua Script
gelöst Frage von 121851Entwicklung1 Kommentar

Hallo zusammen, kann mir jemand sagen wie ich einen PC per Lua Script anpingen kann? Kann jemand die Sprache? ...

Batch & Shell
Ping script batch
gelöst Frage von ThePommesBudeBatch & Shell4 Kommentare

Hallo, ich habe hier ein kleines script geschrieben, dass die IP adressen Pingen soll und zurück geben soll, ob ...

Windows Netzwerk
Netzwerk Ping Problem
gelöst Frage von ITSS-HRWindows Netzwerk11 Kommentare

Hallo an alle hier. Ich hoffe Ihr könnt mir bei einem Problem helfen. Ich habe das Problem festgestellt als ...

VB for Applications

VBScript: Script zur Erzeugung einer Email mit Variablen füttern

gelöst Frage von fred08155VB for Applications26 Kommentare

Ich möchte ein Script modifizieren, das ich aus mehreren verschiedenen Entwürfen aus dem Internet zusammengestellt habe. Dem Script wird ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 5 StundenHumor (lol)1 Kommentar

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 18 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 18 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 22 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...