Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}\Root\Cimv2" )
   set mem_used = objService.Get("Win32_PerfRawData_PerfOS_Memory" )
   m1 = mem_used.AvailableMBytes
   WScript.Echo "Memory Available " & m1 & " MB"
 
 
je me demande ce qui ne va pas là dedans ...
il m'affiche bien l'echo, mais m1 est vide ...  

et celui là me fait la meme chose    
 
Set objService = GetObject("Winmgmts:\Root\Cimv2" )
   Set perf_net = objService.Get("Win32_PerfRawData_Tcpip_NetworkInterface" )
   up1 = perf_net.BytesSentPerSec
   dl1 = perf_net.CurrentBandwidth
 
   WScript.Echo "upload speed " &  up1
   WScript.Echo "download speed " &  dl1