TEST TEST...
060 milliseconds to complete
Commands 16
Functions 7
Macros 2


break on
; this is a comment test for color GREEN
? "System Memory = "val(WMIQuery("TotalPhysicalMemory","Win32_LogicalMemoryConfiguration"))/1024 " MB"
for each $dimm in Split(WMIQuery("Capacity","Win32_PhysicalMemory"),"|")
? "Dimm Size = "val($dimm) / 1048576 " MB"
next

FUNCTION WMIQuery($what,$where,)
dim $strQuery, $objEnumerator, $value
$strQuery = "Select $what From $where"
$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//@WKSTA")
$objEnumerator = $SystemSet.ExecQuery($strQuery)
For Each $objInstance in $objEnumerator
If @Error = 0 and $objInstance <> ""
$=execute("$$value = $$objInstance.$what")
$WMIQuery="$value"+"|"+"$WMIQuery"
EndIf
Next
$WMIQuery=left($WMIQuery,len($WMIQuery)-1)
exit @error
ENDFUNCTION


TEST 2 TEST 2


; arrayenumkey.kix
break on
$subkey='HKEY_LOCAL_MACHINE\SOFTWARE'
$array=arrayenumkey($subkey)
? 'Number of software Packages:'+ubound($array)
for $counter=0 to ubound($array)
 ? 'Software Package '+right('  '+$counter,2)+' = '+$array[$counter]
next
exit 0
function arrayenumkey($regsubkey)
 dim $retcode, $subkeycounter, $currentsubkey, $subkeyarray
 
 if not keyexist($regsubkey)
   $arrayenumkey=''
   return
 endif
 
 $subkeycounter=0
 do
   $currentsubkey=enumkey($regsubkey,$subkeycounter)
   if $currentsubkey<>259 and @ERROR=0
     redim preserve $subkeyarray[$subkeycounter]
     $subkeyarray[$subkeycounter]=$currentsubkey
     $subkeycounter=$subkeycounter+1
   endif
 until $currentsubkey=259 or @ERROR
 
 $arrayenumkey=$subkeyarray
endfunction


[ 22. January 2003, 10:20: Message edited by: NTDOC ]