cls
break on
DIM $oxl,$Row,$b,$ip,$make,$model,$sn,$cs,$mm,$mt,$,$u
$rc=SETOPTION('Explicit','On')
$rc=SETOPTION('NoVarsInStrings','On')

$oXL=Createobject('Excel.application')
;Check to insure that Excel is available
IF 0<>@error ?@error ' Excel Application is not found' 
   SLEEP 4 
   RETURN 
ENDIF
$Rc=$oXL.workbooks.open('c:\ie6push.xls')
$Row=1 ;Row to start at using column headings, change to 0, if needed
WHILE $oXL.cells($Row,1).value<>'' ;need a value each time in column 1
   $Row=$Row+1
   IF $oXL.cells($Row,1).value='' ;Once it gets to a blank row...
      $oXL.quit ;quit Excel
      $oXL=0 ;set the object to 0
   ELSE
      $b=$oXL.cells($Row,1)
      $ip=WSHPing($b)[0]
      $u=WMIQuery("username","Win32_ComputerSystem",$b)[0] 
      $make = WMIQuery("Manufacturer","Win32_ComputerSystem",$b)[0] 
      $model=WMIQuery("Model","Win32_ComputerSystem",$b)[0]
      $sn=WMIQuery("SerialNumber","Win32_BIOS",$b)[0]
      $cs=WMIQuery("CurrentClockSpeed","Win32_Processor",$b)[0]
      $mm=WMIQuery("MonitorManufacturer","Win32_DesktopMonitor",$b)[0]
      $mt=WMIQuery("MonitorType","Win32_DesktopMonitor",$b)[0]
      ?$b
      ?$ip
      ?$u
      ?$make
      ? $model
      ? $sn
      ? $cs
      ? $mm
      ? $mt
   ENDIF
LOOP
?'process is complete'
get $