Új hozzászólás Aktív témák

• #23785 cigam félisten AirBooms #23784

  Új Válasz 2009-04-26 16:29:31 #23785

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cigam

  félisten

  LOGOUT blog

  válasz AirBooms #23784 üzenetére

  Vagy az ms 1 kis programjával (XP alatt is műxik, most próbáltam ki)

  vagy egy kis vbscript-el:

  On Error Resume Next
  Const wbemFlagReturnImmediately = &h10
  Const wbemFlagForwardOnly = &h20
  arrComputers = Array(".")
  For Each strComputer In arrComputers
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
  Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Registry", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
  For Each objItem In colItems
  WScript.Echo "A registry aktuális mérete : " & objItem.CurrentSize & "MB"
  WScript.Echo "A registry maximális mérete: " & objItem.MaximumSize & "MB"
  WScript.Echo "Státusz: " & objItem.Status
  WScript.Echo
  Next
  Next

  Ezt elmented egy reg.vbs fájlba, és parancssorba kiadod ezt a parancsot:
  cscript reg.vbs

  Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews

Új hozzászólás Aktív témák