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
GELÖST

Ping Script Problem - vbscript

Frage Entwicklung VB for Applications

Mitglied: m0nstar

m0nstar (Level 1) - Jetzt verbinden

17.06.2010 um 10:11 Uhr, 7212 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
gelöst Ping per Lua Script (1)

Frage von 121851 zum Thema Entwicklung ...

Windows Netzwerk
gelöst Netzwerk Ping Problem (11)

Frage von ITSS-HR zum Thema Windows Netzwerk ...

Windows 7
gelöst VBScript - HTML Probleme mit Schriftgröße (5)

Frage von MedicalAd zum Thema Windows 7 ...

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

Frage von Invisan zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
gelöst Raid-Controller (Areca) Datenverlust trotz R5 (16)

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

Server-Hardware
HP ProLiant DL380 G7, POST Error: 1785-Drive Array not Configured (10)

Frage von Paderman zum Thema Server-Hardware ...

Server-Hardware
Starker PC zum Virtualisieren (10)

Frage von canlot zum Thema Server-Hardware ...

Microsoft Office
gelöst Office 365 Pro Domäne einrichten OHNE Webseite (9)

Frage von thklemm zum Thema Microsoft Office ...