VBS zur Abfrage des Virtuellen und Physikalischen Arbeitsspeichers

Mitglied: SMARTi

SMARTi (Level 1) - Jetzt verbinden

31.08.2011, aktualisiert 10:19 Uhr, 4979 Aufrufe, 3 Kommentare

Microsoft Small Business Server 2008
Windows Vista 32 Bit
Windows 7 64 Bit
MRTG, ActivePerl, VB-Scripte

Ich habe auf dem SBS08 und der Testumgebung Vista erfolgreich MRTG und ActivePerl eingerichtet. Dort über VBS und mrtg.cfg's lass ich aktuell die CPU-Auslastung und den HDD-Speicher diverser Festplatten und Partitionen abfragen. Funktioniert soweit einwandfrei. Jetzt wollte ich noch die aktuelle Auslastung des Virtuellen und Physikalischen Arbeitsspeichers abfragen, was nicht funktioniert:

Beim Aufrufen kommt ein Fehler:
(20 , 1) (null): 0x80041010



Weiß jemand woran das liegen könnte oder hat jemand schon ein fertiges VB-Script was dieses richtig abfragt

Danke im Voraus
Mitglied: AndreasHoster
31.08.2011 um 10:42 Uhr
Auf meinem XP 32bit tut Dein Skript ohne Fehler.
Tuts auf allen 3 oben genannten Systemen nicht? Oder tuts nur auf den 64bit Systemen nicht?
Bitte warten ..
Mitglied: SMARTi
31.08.2011 um 10:45 Uhr
Es funktioniert auf allen oben genannten Systemen nicht:

Zeile: 20
Zeichen: 1
Fehler: 0x80041010
Code: 80041010
Quelle: (null)

Das wichtigste wär der SBS (sowie die Testumgebung)
Bitte warten ..
Mitglied: SMARTi
31.08.2011 um 12:20 Uhr
Das VBS funktioniert jetzt (getestet auf Vista 32 Bit):



' Run this script at the command prompt by typing
' cscript usedMem.vbs

set oSvc = GetObject("winmgmts:root\cimv2")

wqlQuery = "select FreeVirtualMemory,FreePhysicalMemory from Win32_OperatingSystem"

for each oData in oSvc.ExecQuery(wqlQuery)
for each oProperty in oData.Properties_
if oProperty.Name = "FreeVirtualMemory" then
freeVirtual = oProperty.Value
elseif oProperty.Name = "FreePhysicalMemory" then
freePhysical = oProperty.Value
end if
next
next

wqlQuery = "select TotalVirtualMemory TotalVirtualMemorySize, TotalPhysicalMemory TotalVisibleMemorySize from Win32_LogicalMemoryConfiguration Win32_OperatingSystem"

for each oData in oSvc.ExecQuery(wqlQuery)
for each oProperty in oData.Properties_
if oProperty.Name = " TotalVirtualMemory TotalVirtualMemorySize" then
totalVirtual = oProperty.Value
elseif oProperty.Name = " TotalPhysicalMemory TotalVisibleMemorySize" then
totalPhysical = oProperty.Value
end if
next
next

percentVirtualUsed = 100 - (100 * (freeVirtual / totalVirtual))
percentPhysicalUsed = 100 - (100 * (freePhysical / totalPhysical))

wscript.echo percentVirtualUsed
wscript.echo percentPhysicalUsed

wscript.echo Date() & " " & Time()

wscript.echo "Percent Used Virutal Memory"
wscript.echo "Percent Used Physical Memory"
Bitte warten ..
Heiß diskutierte Inhalte
HTML
Ich brauche dringend Hilfe !
gelöst JulianpustVor 23 StundenFrageHTML17 Kommentare

Hallo erstmal, ich habe großen Mist gebaut in der Firma wo ich gerade mal 2 Tage arbeite. Was ist passiert: Ich sollte von Gmail ...

Netzwerke
Lan sperre (vieleicht)
gelöst xPainzVor 8 StundenFrageNetzwerke40 Kommentare

Hi Leute habe ein Problem, mein Vater hat mir eine Internet sperre gegeben ,aber keine normale. das Problem : mein Internet verschwindet am pc ...

Windows 10
Windows 10 schickt lokale Anfragen an das Gateway - was tun?
gelöst runthegaunzVor 1 TagFrageWindows 1015 Kommentare

Hallo! Ich bin vor ein paar Tagen wieder von Linux auf Windows umgestiegen. Ich hab die Windows 10 Version 20H2 installiert, wurde von Windows ...

Switche und Hubs
23 Cisco Switch einrichten - Wie am einfachsten?
gelöst Freak-On-SiliconVor 1 TagFrageSwitche und Hubs18 Kommentare

Hallo; Ich habe hier 4stk Cisco SX350X-24 9Stk Cisco SG350X-48P 10Stk Cisco SG350X-48 Diese werden aufgeteilt auf 9 Racks, und ersetzen alte HP Switches. ...

Exchange Server
Aktuelle Exchange Sicherheitslücke
jojo0411Vor 1 TagAllgemeinExchange Server11 Kommentare

Hallo Leute, Momentan gibt es da wieder einmal ein schönes neues Thema. Sehe ich das richtig das ich mit Exchange 2016 und CU 19 ...

Windows Server
Server-Internetverbindung kurz trennen und wieder aktivieren
gelöst imebroVor 1 TagFrageWindows Server11 Kommentare

Hallo, wir haben im Moment fast täglich immer wieder Ausfälle unserer Internetverbindung. Unser Provider sagt, dass er kein Problem feststellen kann. Aber wenn vom ...

Windows Server
Windows Firewall: Alle öffentliche IPs sperren bis auf eine
SabSchapVor 1 TagFrageWindows Server7 Kommentare

Hallo, wir haben einen Windows 2019 Server. Wir nutzen diesen als Webserver. Nun haben wir die Webadresse www.test.de und möchten diese für alle öffentlichen ...

Hardware
Fritzbox 7590 ändert selbständig die FTP-Adresse nach ca. 24h
Wicky1Vor 1 TagFrageHardware15 Kommentare

Hallöchen, ich habe da ein sehr kurioses Problemchen mit meiner Fritzbox. Doch erst mal eine kurze Beschreibung des Aufbaus: - Fritzbox 7590 (1&1 Edition) ...