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

VBS zur Abfrage des Virtuellen und Physikalischen Arbeitsspeichers

Frage Entwicklung VB for Applications

Mitglied: SMARTi

SMARTi (Level 1) - Jetzt verbinden

31.08.2011, aktualisiert 10:19 Uhr, 4647 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


01.
' Run this script at the command prompt by typing 
02.
'     cscript usedMem.vbs 
03.
 
04.
set oSvc = GetObject("winmgmts:root\cimv2") 
05.
 
06.
wqlQuery = "select FreeVirtualMemory,FreePhysicalMemory from Win32_OperatingSystem" 
07.
 
08.
for each oData in oSvc.ExecQuery(wqlQuery) 
09.
	for each oProperty in oData.Properties_ 
10.
		if oProperty.Name = "FreeVirtualMemory" then 
11.
			freeVirtual = oProperty.Value 
12.
		elseif oProperty.Name = "FreePhysicalMemory" then 
13.
			freePhysical = oProperty.Value 
14.
		end if 
15.
	next 
16.
next 
17.
 
18.
wqlQuery = "select TotalVirtualMemory,TotalPhysicalMemory from Win32_LogicalMemoryConfiguration" 
19.
 
20.
for each oData in oSvc.ExecQuery(wqlQuery) 
21.
	for each oProperty in oData.Properties_ 
22.
		if oProperty.Name = "TotalVirtualMemory" then 
23.
			totalVirtual = oProperty.Value 
24.
		elseif oProperty.Name = "TotalPhysicalMemory" then 
25.
			totalPhysical = oProperty.Value 
26.
		end if 
27.
	next 
28.
next 
29.
 
30.
percentVirtualUsed = 100 - (100 * (freeVirtual / totalVirtual)) 
31.
percentPhysicalUsed = 100 - (100 * (freePhysical / totalPhysical)) 
32.
 
33.
wscript.echo percentVirtualUsed 
34.
wscript.echo percentPhysicalUsed 
35.
 
36.
wscript.echo Date() & " " & Time() 
37.
 
38.
wscript.echo "Percent Used Virutal Memory" 
39.
wscript.echo "Percent Used Physical Memory"

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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Drucker und Scanner
USB-Drucker über virtuellen COM LPT- Port ansteuern (27)

Frage von magicman zum Thema Drucker und Scanner ...

Datenbanken
gelöst Row Number bei einer Abfrage sinnvoll einsetzen (1)

Frage von Aximand zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (13)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...