Umfangreiches Projekt zum Ermitteln des Arbeitsspeicherumfangs eines PCs

Nun habe ich eine Aufgabe bekommen, die vom Umfang her für meine Kenntnisse doch ein wenig hoch ist, aber da ich ein ehrgeiziger Mensch bin möchte ich mich doch daran versuchen.

Hier erstmal grob was gemacht werden sollte:

Bei einigen Kunden der Firma stehen noch recht alte PCs, die Kunden beklagen sich das diese zu langsam sind.
Ich muss nun also mit einer Batch/cmd Datei herrausfinden, wie groß der Arbeitsspeicher der Rechner ist.
Das ganze lässt sich recht einfach mit dem Programm CPUz machen, dies kann eine Text datei oder HTML Datei erstellen, in der man dann auch die Größe des Arbeitsspeichers einsehen kann.
Leider kann ich es nicht mit Windows Internen Programmen machen, da das ganze wie gesagt über eine Batch Datei laufen soll.

Das Problem dabei ist nämlich, das die PCs meistens Windows 2000 installiert haben und dort gibt es meines Wissens nach keinen Befehl der einem die Grundsätzlichen Systemkomponenten anzeigen kann. Einige wenige PCs haben Windows XP installiert, bei XP gibt es ja den CMD Befehl systeminfo, dieser gibt eine kleine Übersicht über die Systemkomponenten und ist auch Remotefähig.

Die Clients sind mit einem Server verbunden der entweder Windows 2000 Server oder Windows 2003 Server nutzt.

Da man aber nicht sofort die ganzen IP-Adressen parat hat und nicht weiß, wie viele PCs den nun am Server hängen, muss man sich das erst besorgen.

Unter "C:\WINDOWS\system32\drivers\etc" gibt es eine Datei mit dem Namen "hosts" (Ohne eine Endung), in dieser sind alle mit dem Server verbundenen PCs in Form von IP-Adressen aufgeführt.


Das müssten so grob die Rahmenbedingungen sein.

Was die Batch Datei nun also können sollte:

Sie soll auf dem Server liegen
Die "hosts" Datei auslesen
IP-Adressen aus dieser Datei Auslesen (Vielleicht in eine Text Datei verfrachten)
Jede einzelne IP-Adresse abfragen nach der Größe des Arbeitsspeichers
Das in eine Textdatei verfrachten und auf dem Server hinterlegen


Ehrlich gesagt weiß ich nicht genau, ob das mit einer Batch-Datei lösbar ist, die Datei darf auch gerne ein anderes Programm aufrufen, aber es muss alles Automatisch funktionieren.
(Deshalb die Verwendung von CPUz, dies kann mit dem Parameter -txt=system eine Textdatei mit dem Name System ausgeben der einen kleinen Überblick über die Systeme verschafft und bleibt gleichzeitig "unsichtbar" (Silent))


Ich hoffe das man mir hier soweit folgen kann was genau ich machen muss, besser kann ich es im moment nicht erklären.
Anmerkung ist noch das Firewalls keine Probleme machen werden, dafür ist schon gesorgt.

Ich glaube das es besser ist, erst die einzelnen Schritte zu verwirklichen als sich sofort auf das gesamte "Programm" zu stürzen.

Für die ganze Sache habe ich ungefähr 16 Wochentage Zeit und es ist keine Pflicht, aber ich würde es trotzdem gern versuchen

Ich bin über jeden Ratschlag hocherfreut und werde so schnell wie Möglich antworten.
Außerdem habe ich hier vor Ort einen Server an dem 2 Clients dranhängen, mit dessen Hilfe kann ich alles testen.

Nun, das wäre es von meiner Seite gewesen, nun warte ich auf eure Antworten, Ratschläge etc.

LG Teraphine

FOR /F "eol=# delims= " %%i in ("%windir%\system32\drivers\etc\hosts") do echo %%i  

FOR /F "eol=# delims= " %%i in ('type "%windir%\system32\drivers\etc\hosts"') do echo %%i  

Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

strComputer = "."  

Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" _  
& strComputer & "\root\cimv2")  
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")  

For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name _  
& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory  
Next

WScript.Quit

Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" _  
& strComputer & "\root\cimv2")  
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")  
For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name _  
& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory  
Next

WScript.Quit

echo strComputer = "%computername%" > memory2.tmp  
copy /b memory1.tmp + memory2.tmp + memory3.tmp memory.vbs
memory.vbs //NoLogo > C:\%computername%.txt
del /q memory?.tmp
del /q memory.vbs

if not exist c:\host md c:\host
echo off
findstr 1 %windir%\system32\drivers\etc\hosts >c:\host\host.txt
FOR /f  %%f IN (c:\host\host.txt) DO (@echo strComputer = "%%f" >c:\host\memory2.tmp  
 copy /b memory1.tmp + memory2.tmp + memory3.tmp %%f.vbs )
FOR /f  %%f IN ('DIR /b c:\host\*.vbs') Do (cscript /nologo c:\host\%%f>>C:\host\komplett.txt)  

Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

strComputer = "" & WScript.Arguments(0) & ""  
if strComputer = "" then strComputer = "."  

Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" _  
& strComputer & "\root\cimv2")  
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")  

For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name _  
& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory  
Next

WScript.Quit

@echo off
if not exist c:\host md c:\host
type %windir%\system32\drivers\etc\hosts >c:\host\host.txt
FOR /F "eol=# delims= " %%f in (c:\host\host.txt) DO (  
echo PC %%f: >>C:\host\komplett.txt
cscript /nologo c:\host\memory.vbs %%f >>C:\host\komplett.txt
)

Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

strComputer = "" & WScript.Arguments(0) & ""  
if strComputer = "" then strComputer = "."  

Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" _  
& strComputer & "\root\cimv2")  
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")  

For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name _  
& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory  
Next

WScript.Quit

NET USE Z: \\COMPUTERNAME\C$ /user:administrator PW /persistent:no
xcopy c:\host Z:\host /i /s /e
psexec \\COMPUTERNAME C:\host\host.cmd /k
xcopy Z:\host\*.txt C:\host

@echo off
if not exist c:\host md c:\host
type %windir%\system32\drivers\etc\hosts >c:\host\host.txt
FOR /F "eol=# delims= " %%f in (c:\host\host.txt) DO (  
echo PC %%f: >>C:\host\%computername%.txt
cscript /nologo c:\host\memory.vbs %%f >>C:\host\%computername%.txt
)

Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

strComputer = "" & WScript.Arguments(0) & ""  
if strComputer = "" then strComputer = "."  

Set objWMIService = GetObject("winmgmts:" _  
& "{impersonationLevel=impersonate}!\\" _  
& strComputer & "\root\cimv2")  
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")  

For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name _  
& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory  
Next

WScript.Quit