All pastes #900074 Raw Edit

Mine

public text v1 · immutable
·published 2008-02-11 17:35 UTC
rendered paste body
alias cpu {
  comopen Locator WbemScripting.SWbemLocator
  if ($comerr) { echo comopen failed | halt }
echo com: $com(Locator, ConnectServer, 3, dispatch* Services)
  echo result: $com(Locator).result
  echo com(0): $com(0)
 if ($com(Services)) {
    echo com: $com(Services, Get, 3, string, Win32_Processor.DeviceID='CPU0', dispatch* More)
    echo result: $com(Services).result
    echo com(0): $com(0)
  if ($com(More)) {
      echo com: $com(More, Name, 3)
     echo result: $com(More).result
      echo com: $com(More, Caption, 3)
      echo result: $com(More).result
      echo com: $com(More, Manufacturer, 3)
      echo result: $com(More).result
      comclose More
    }
    comclose Services
  }
  comclose Locator
}