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, 4757 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 ..
Ähnliche Inhalte
Windows Installation
Nach Hardwaretausch PC wieder starten (inkl. Physikalisch - Virtuell) (3)

Anleitung von Cloudy zum Thema Windows Installation ...

Tipps & Tricks
gelöst Virtuelle Maschinen im Netzwerk auffinden (10)

Frage von honeybee zum Thema Tipps & Tricks ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Router & Routing
FTTH bzw FTTB Router (13)

Frage von ukulele-7 zum Thema Router & Routing ...