Автор Тема: Computer Info - Библиотека для получения инфы о компьютере  (Прочитано 11544 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн `p r o x y [?]

  • Глобальный модератор
  • *
  • Сообщений: 596
  • Репутация: 156
  • Пол: Мужской
  • «Улыбайтесь, господа!»
    • WebInWeb
    • Награды
AutoIt: 3.2.1.2 - 3.3.0.0
Версия: 00.03.08
Категория:
Название: (UDF) Computer Info
Описание: Получение информации о компьютере и его устройствах через WMI.
Код: Пример
(нажмите для показа/скрытия)
Источник: JSThePatriot
« Последнее редактирование: Октябрь 04, 2009, 20:10:58 от Yashied »
1 тема – 1 вопрос.
Как правильно назвать свою тему – подскажут тут.
На форуме принято помечать тему «решенной» после получения ответа на свой вопрос.

Русское сообщество AutoIt


Оффлайн Medic84 [?]

  • Администратор
  • *
  • Сообщений: 1416
  • Репутация: 303
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: UDF Computer Info
« Ответ #1, Отправлен: Июль 21, 2009, 14:14:35 »
Очень полезный UDF :) Всем качать!

   
На форуме принято отмечать полезные сообщения пальцем вверх =)
Никогда не даю подробных примеров сразу, я сначала навожу на мысль - как можно написать. Учитесь мыслить сами, а не за других людей.

VitAl2013

  • Гость
Я не понял какую такую информацию о компе он может выдать? Например может выдать проценты загруженности процессора или самый процессорожрущую программу в системе?

Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 7827
  • Репутация: 2288
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.10.2
VitAl2013 [?]
Цитировать
может выдать проценты загруженности процессора
Может, см. _ComputerGetProcesses:

Код: AutoIt [Выделить]
Dim $aProcessInfo
_ComputerGetProcesses($aProcessInfo)
_ArrayDisplay($aProcessInfo)


загрузка процессора это 39-тый элемент в массиве (в байтах), во второй его колонке.


Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Русское сообщество AutoIt

Re: Computer Info - Библиотека для получения инфы о компьютере
« Ответ #3 Отправлен: Ноябрь 04, 2009, 13:15:27 »

Оффлайн Waik [?]

  • Новичок
  • *
  • Сообщений: 60
  • Репутация: 16
    • Награды
Возможности библиотеки конечно очень замечательные.Но я не могу вызвать ни одну функцию.То как я пробую это сделать я даже писать не буду-)
Вроде CreatoR   показал пример работы с функцией.Но как например записать возврощаемое значение BootDirectory из функции _ComputerGetBootConfig в переменную ?
Подскажите.
« Последнее редактирование: Февраль 12, 2010, 22:33:04 от Waik »


Bсе гениальное прoстo
═══════════════════════════════
«Не думай о задаче, думай о решении»
©Terry Goodkind
═══════════════════════════════

Оффлайн `p r o x y [?]

  • Глобальный модератор
  • *
  • Сообщений: 596

  • Автор темы
  • Репутация: 156
  • Пол: Мужской
  • «Улыбайтесь, господа!»
    • WebInWeb
    • Награды
Waik
Код: AutoIt [Выделить]
#include <CompInfo.au3>

; объявление  массива
Dim $aBootConfigInfo

; вызов функции и передача массива в который будет записан результат
_ComputerGetBootConfig($aBootConfigInfo)

; вывод сообщения с информацией о BootDirectory
; информация BootDirectory находится в массиве $aBootConfigInfo в элементе [1][1]
; это можно узнать из UDF CompInfo.au3, в функции _ComputerGetBootConfig
MsgBox(64, 'BootDirectory', $aBootConfigInfo[1][1])


Оффлайн k790 [?]

  • Новичок
  • *
  • Сообщений: 239
  • Репутация: 1
  • Пол: Мужской
    • Компьютерная-Лаборатория
    • Награды
win 7 поддерживается?
« Ответ #6, Отправлен: Март 18, 2012, 22:03:29 »
У меня пишет, ошибку на 1004 строке (это exe'ник)
А в исходнике
Код: AutoIt [Выделить]
C:\Program Files\AutoIt3\Include\CompInfo.au3 (584) : ==> The requested action with this object has failed.:
$aOSInfo[$i][43] = $objItem.QuantumLength
$aOSInfo[$i][43] = $objItem.QuantumLength^ ERROR


Оффлайн HukpoFuJl [?]

  • AццkuЙ
  • Осваивающий
  • **
  • Сообщений: 97
  • Репутация: 37
  • Пол: Мужской
  • AццkuЙ HukpoFuJl
    • Devorans
    • Награды
  • Версия AutoIt: 3.3.x.x
Подтверждаю, по Quantum'ам пишет ошибку, пришлось удалить 2 строки с ними из библиотеки. (Win8 CP)

UPD:

Уточняю: Функция _ComputerGetOSs(ByRef $aOSInfo) выдает ошибки "The requested action with this object has failed" на строках 584 и 585:
Код: AutoIt [Выделить]
$aOSInfo[$i][43] = $objItem.QuantumLength
$aOSInfo[$i][44] = $objItem.QuantumType

« Последнее редактирование: Апрель 26, 2012, 17:05:26 от HukpoFuJl »

Русское сообщество AutoIt

Re: Computer Info - Библиотека для получения инфы о компьютере
« Ответ #7 Отправлен: Апрель 26, 2012, 16:54:17 »

Оффлайн михаил15 [?]

  • Новичок
  • *
  • Сообщений: 1
  • Репутация: 0
    • Награды
  • Версия AutoIt: 3.3.14.0
Хороший файл CompInfo.au3, много всего показывает. Спасибо автору.
Сделал файл "CompInfo в MsgBox" для более быстрого поиска нужного значения, тем кто пишет свои программы.
Примечание: у меня файл "CompInfo в MsgBox.au3" работает если рядом с ним лежит "CompInfo.au3"

Не смог заставить работать:
_ComputerGetPrintJobs
_ComputerGetThreads
_ComputerGetBattery
_ComputerGetDrives
Кто знает как заставить их работать - внесите пожалуйста исправления в файл.


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться
« Последнее редактирование: Февраль 03, 2018, 20:51:10 от михаил15, Причина: ошибка »

Русское сообщество AutoIt

Re: Computer Info - Библиотека для получения инфы о компьютере
« Ответ #8 Отправлен: Февраль 03, 2018, 20:45:43 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
82 Ответов
89960 Просмотров
Последний ответ Июль 04, 2018, 14:08:25
от alex33
0 Ответов
3718 Просмотров
Последний ответ Январь 10, 2011, 07:54:49
от general66
1 Ответов
2214 Просмотров
Последний ответ Август 17, 2011, 14:13:13
от Kaster
11 Ответов
5606 Просмотров
Последний ответ Апрель 30, 2013, 14:25:10
от mef-t
11 Ответов
13772 Просмотров
Последний ответ Апрель 26, 2017, 15:31:48
от InnI
8 Ответов
1746 Просмотров
Последний ответ Июль 03, 2015, 17:15:53
от InnI
6 Ответов
2018 Просмотров
Последний ответ Август 03, 2015, 22:22:28
от Vovsla
6 Ответов
797 Просмотров
Последний ответ Октябрь 07, 2016, 19:47:36
от Garrett
4 Ответов
1342 Просмотров
Последний ответ Июнь 22, 2017, 09:13:24
от alex2887
0 Ответов
247 Просмотров
Последний ответ Январь 13, 2018, 14:44:14
от maxd2007