This is a 'rebuild' of the script i use to keep track of the disks in my servers

The function: DiskInfo() returns an array of diskinfo on the form:
Drive,Filesystem,Size,FreeSpace

code:
Function DiskInfo($PC)
	Dim $Disks[0],$NumDisks,$Found,$Row
	$DiskInfo = 0
	$NumDisks = 0
	$Found = 0
	$Row = ''
	$objWMI = GetObject("winmgmts:{impersonationlevel=impersonate}!//" + $PC)
	If @Error
		Return
	EndIf
	$colDisks = $objWMI.ExecQuery("Select * From win32_logicalDisk")
	For Each $objDisk In $colDisks
		If $objdisk.mediatype = 12
				$Row = $objdisk.name + ','
				$Row = $Row + $objdisk.FileSystem + ','
				$Row = $Row + $objDisk.size + ','
				$Row = $Row + $objDisk.FreeSpace
				ReDim Preserve $Disks[$NumDisks]
				$Disks[$NumDisks] = $Row
				$NumDisks = $NumDisks + 1
				$Row = ''
				$Found = 1
		EndIf
	Next
	$objWMI = 0
	If $Found
		$DiskInfo = $Disks
	EndIf
EndFunction
; * Test code
Break On

$PC = 'Server1'
For Each $Disk In DiskInfo($PC)
$Disk ?
Next

Get $x

Return
; * End Test code

-Erik

[ 21. September 2002, 18:50: Message edited by: kholm ]