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

mail mit vbs

Frage Microsoft

Mitglied: geneon

geneon (Level 1) - Jetzt verbinden

12.03.2007, aktualisiert 13.03.2007, 4575 Aufrufe, 4 Kommentare

Hallo erstmal!

ich versuch hier ein vbScript zu schreiben das mir den ram und die Festplattenkapazität des pc's ausliest! Das funktioniert auch super nur soll wenn bestimmte werte erreicht sind eine mail geschickt werden!

hier das Script!

Computer = "Krakatoa"

msgbox computer,,"Ausgewählter Computer!"

strComputer = Computer
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_PerfOS_Memory").objectSet
objRefresher.Refresh

For i = 1 to 1
For Each objItem in colItems
Wscript.Echo "Verfügbarer Ram in MB: " & objItem.AvailableMBytes
Wscript.Sleep 2000
objRefresher.Refresh
Next
Next

Set objWMIService = GetObject("winmgmts://" & Computer)

Set objLogicalDiskc = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")
FreeSpacec = (objLogicalDiskc.FreeSpace / 1024 / 1024 / 1024)
FreeSpacec = round(FreeSpacec, 2)

Set objLogicalDiskd = objWMIService.Get("Win32_LogicalDisk.DeviceID='d:'")
FreeSpaced = (objLogicalDiskd.FreeSpace / 1024 / 1024 / 1024)
FreeSpaced = round(FreeSpaced, 2)

gb = " GB"
fs = "Free Space "
warningc = "warning! C:\ "
warningd = "warning! D:\ "

if FreeSpacec < 2.5 then
FreeSpacec = warningc & fs & FreeSpacec & gb
msgbox FreeSpacec,vbInformation, "Critical"
else
FreeSpacec = fs & FreeSpacec & gb
msgbox FreeSpacec,vbInformation, "Freier Speicherpaltz auf C:\"
end if

if FreeSpaced < 2.5 then
FreeSpaced = warningd & fs & FreeSpacec & gb
msgbox FreeSpaced,vbInformation, "Critical"
else
FreeSpaced = fs & FreesPaced & gb
msgbox FreeSpaced,vbInformation, "Freier Speicherplatz auf D:\"
end if

nun sollen die WErte FreeSpaced, FreeSpacec und objItem.AvailableMBytes als email verschickt werden!! ABER WIE??? bin am verzweifeln!

Danke im vorraus!
Mitglied: Supaman
12.03.2007 um 15:11 Uhr
du könntest den mailtext mit blat versenden. ( www.blat.net )
Bitte warten ..
Mitglied: bastla
12.03.2007 um 16:02 Uhr
Hallo geneon!

Dem Vorschlag von Supaman schließe ich mich an, wobei das Script dann natürlich etwas zu modifizieren wäre:
  • Falls es für mehrere Rechner verwendbar sein soll, bestimme den Computernamen mittels
01.
Set WshNetwork = WScript.CreateObject("WScript.Network") 
02.
Computer = WshNetwork.ComputerName
  • Ersetze "MsgBox"-Ausgaben durch "WScript.Echo" und fasse alle Ergebnisse oder "warnings" zu einer Zeile zusammen, also etwa
01.
WScript.Echo FreeSpacec & " - " & FreeSpaced & " - " objItem.AvailableMBytes
  • Beende das Script mit "WScript.Quit(1)" für den Fall, dass eine Mail verschickt werden muss und mit "WScript.Quit(0)" wenn alles ok ist.

  • Rufe das Script von der Commandline so auf:
01.
cscript //nologo SpeicherCheck.vbs > Warnings.txt && goto :Weiter 
02.
echo Mail wird versandt ... 
03.
blat ... 
04.
:Weiter 
05.
echo Es geht weiter ...
Kurze Erklärung:
Das "WScript.Echo" unterscheidet zwischen Ausführung mit grafischer Oberfläche (zB per Doppelklick - dann wird eine MsgBox erstellt) und Aufruf über die Commandline - dann wird auf das Standardgerät (Bildschirm) ausgegeben, wobei diese Ausgabe auch in eine Datei umgeleitet werden kann (siehe Beispiel oben).

Das "WScript.Quit(1)" beendet das Programm mit einem Errorlevel von 1, den ich dann von der Commandline / in einem Batch zB mit "if errorlevel 1" abfragen kann. Alternativ dazu kann mit "&&" oder "||" im Anschluss an den Aufruf festgelegt werden, was bei einem Errorlevel von 0 (dafür steht "&&") geschehen soll - im Beispiel oben wird der Mailversand übersprungen.

Für die Verwendung von "blat" gibt es auch im Forum eine Reihe von Beispielen, daher nur als Hinweis: Die Ausgabe des Scripts steht in der "Warnings.txt" und kann von dort in den Mail-Text übernommen werden.

Grüße
bastla

P.S.: Für mehr habe ich momentan leider nicht Zeit ...
Bitte warten ..
Mitglied: geneon
13.03.2007 um 07:59 Uhr
Hey vielen herzlichen dank schoneinmal! ich werde blat gleich mal ausprobieren und mein quellcode auch modifiezieren! Herzlichen dank!
Bitte warten ..
Mitglied: geneon
13.03.2007 um 09:19 Uhr
Danke hat super mit blat geklaptt! Vielen herlichen Dank!!!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
VBS Script in eine Textdatei ausgeben (VBS mit Batch zusammenführen)
gelöst Frage von Luuke257Batch & Shell5 Kommentare

Hallo zusammen! Vorweg, ich bin absoluter neuling im Scripten, ich habe mir das alles nur so zusammengebastelt und versuche ...

Entwicklung
Chat via VBS
Frage von Questionmark93Entwicklung

Hey Community, wollte mal Fragen ob jmd auf die Schnelle ein VBS Skript hat das als "Chat" genutzt werden ...

VB for Applications
VBS - Vor- und Nachnamen auslesen
Frage von Ah3n0bar6usVB for Applications2 Kommentare

Ich könnte noch einmal (teuren) Rat gebracuhen. Ich versuche mir dem u.a. Script den kompletten Namen eines Nutzers vom ...

Batch & Shell
Variable aus VBS in Batch einlesen
gelöst Frage von racer1601Batch & Shell4 Kommentare

Hallo ich habe das Problem das ich die Variable "Ordner" aus einem VBS Script nicht in meine Batch bekomme. ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 19 StundenMicrosoft Office8 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 21 StundenDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 22 StundenSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner13 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...