testprogs/win32/wmi/echoprocessor.vbs

   1 For Each Host In WScript.Arguments\r
   2         Set WMIservice = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & host & "\root\cimv2")\r
   3 \r
   4         Set colsettings = WMIservice.ExecQuery("SELECT * FROM Win32_Processor")\r
   5 \r
   6 \r
   7         For Each proc In colsettings\r
   8                 Wscript.Echo(host & ": " & proc.description)\r
   9         Next\r
  10 Next\r