scratch that...I can not get the all my machines to enuermate in a loop.

I keep getting the results of my local machine.

 Code:
Break On

; print the header
'Drv      Capacity           Free        <!>' ?

;=====================================================
; Define the name of your test computer
; (later, enumerate a list of computers in a loop)
; $Computer = 'COMPUTER'

If Open(3, "C:\servers.TXT") = 1
  $Computer = ReadLine(3)
  While Not @ERROR

    ; reporting code goes here...

    $Computer = ReadLine(3)
  Loop
  $ = Close(3)
EndIf

;=====================================================

; load the array from the computer
$aSysInfo = WMISysInfo($Computer)
If UBound($aSysInfo) = -1
  'Bad computer name or no access!' ? 
  Quit 1
EndIf

; Examine the disk drives & capacities
$D_Letters    = Split($aSysInfo[32], ',')
$D_Capacities = Split($aSysInfo[33], ',')
$D_FreeSpace  = Split($aSysInfo[34], ',')

For $Index = 0 to UBound($D_Letters)
  Left($D_Letters[$Index] + '               ', 4) ; 15 spaces between quotes
  Right(' ' + CDbl($D_Capacities[$Index]) / 1048576.0, 15)
  Right(' ' + CDbl($D_FreeSpace[$Index]) / 1048576.0, 15)
  If CDbl($D_FreeSpace[$Index]) < 500000
    '   <Low!>'
  EndIf
  ?
Next


Edited by rcurrao (2007-12-20 05:46 PM)