vbs - wmi

vbs - wmi - VB/VBA/VBS - Programmation

Marsh Posté le 29-10-2002 à 11:59:13    

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 ...  :heink:

Reply

Marsh Posté le 29-10-2002 à 11:59:13   

Reply

Marsh Posté le 29-10-2002 à 13:21:56    

et celui là me fait la meme chose  :pt1cable:  
 
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

Reply

Marsh Posté le 29-10-2002 à 18:14:15    

[:trompette5]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed