function resolution()
  Dim $MSInfoDir, $MSInfo, $MSInfoTemp, $MSInfoResolution, $fh
  $MSInfoDir='%commonprogramfiles%\Microsoft Shared\MSInfo\'
  $MSInfo=$MSInfoDir + 'msinfo32.exe'
  $MSInfoTemp=temp.txt
  $MSInfoResolution=@scriptdir + '\resolution.txt'
  if exist($MSInfoDir + $MSInfoTemp)
    del $MSInfoDir + $MSInfoTemp
  endif
  if exist($MSInfoResolution)
    del $MSInfoResolution
  endif
  shell '%comspec% /c "' + $MSINFO + '" /report ' + $MSInfoTemp + ' /categories +componentsdisplay' 
  shell '%comspec% /c type "' + $MSInfoDir + $MSInfoTemp + '" > "' + $MSInfoResolution + '"'
  $fh=freefilehandle()
  if open($fh,$MSInfoResolution)=0
    $line=readline($fh)
    while @error=0 and $found=0
      if instr($line,"Resolution")
        $resolution=ltrim(split($line,"Resolution")[1])
        $found=1
      endif
      $line=readline($fh)
    loop
    $=close($fh)
  endif
endfunction