Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2007-03-31 12:19:34 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2017-06-14 21:17:16
карма: 0

0
Ответов: 5446
Рейтинг: 323
#2: 2007-03-31 13:18:17 ЛС | профиль | цитата
rujet, нужна.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2007-03-31 13:28:28 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2017-06-14 21:17:17
карма: 0

0
Ответов: 2058
Рейтинг: 28
#4: 2007-03-31 13:49:25 ЛС | профиль | цитата
rujet, не хватает.
карма: 1

0
Администрация
Ответов: 15295
Рейтинг: 1519
#5: 2007-03-31 14:20:20 ЛС | профиль | цитата
rujet, через VBJScript можно узнать практически все
карма: 26
0
Ответов: 10
Рейтинг: 0
#6: 2007-03-31 14:25:26 ЛС | профиль | цитата
Эдик &iarspider ваши ответы совершенно не вписываются в эту тему.
Dilma, можно примерчик
карма: 1

0
Администрация
Ответов: 15295
Рейтинг: 1519
#7: 2007-03-31 14:41:54 ЛС | профиль | цитата
боюсь что с ходу примерчик не приведу. Есть microsoft ряд COM объектов, возвращающих всякую инфу по железу. Найти эти скрипты можно в поисковиках вместе со словами "температура проца" и "скорость кулера"
карма: 26
0
Ответов: 10
Рейтинг: 0
#8: 2007-03-31 17:31:29 ЛС | профиль | цитата
Нашел. Сделал.
function doWork(dt,ind)
{
Set objWMIService = GetObject("winmgmts:\107-3ootcimv2")
Set colMBs = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objMB in colMBs
sys.onCount(objMB.Manufacturer)
Next
}
При компиляции выдает ошибку недопустимый знак
карма: 1

0
Администрация
Ответов: 15295
Рейтинг: 1519
#9: 2007-03-31 21:35:49 ЛС | профиль | цитата
ну еще бы. Тело от бейсика, а ф-ция от JavaScript. Правильно так:

sub doWork(dt,ind)
 Set objWMIService = GetObject("winmgmts:\107-3ootcimv2")
Set colMBs = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objMB in colMBs
sys.onCount(objMB.Manufacturer)
next
end sub

кстате таким образом можно достать почти всю информацию о компьютере
карма: 26
0
Ответов: 2058
Рейтинг: 28
#10: 2007-03-31 22:38:12 ЛС | профиль | цитата
rujet, Потом когда сделашь свой пример положи его в раздел схемы. Вдруг кому ни будь тоже понадобиться.
карма: 1

0
Ответов: 10
Рейтинг: 0
#11: 2007-04-01 08:19:29 ЛС | профиль | цитата
Спасибо. Положу конешно. А еще клиента для чтения данных и свода. У нас в сети 500 компов ожидается еще 200, а все проги по учету либо работают на BDE, либо платные сильно. Варезом пользоваться нельзя

[size=-2]------ Добавлено в 08:19
Я вот подумал а на Delphi коде это реализуемо или нужны будут бибилиотеки?
карма: 1

0
Ответов: 5446
Рейтинг: 323
#12: 2007-04-01 10:27:29 ЛС | профиль | цитата
rujet писал(а):

Эдик & iarspider ваши ответы совершенно не вписываются в эту тему..


Видите ли, тов. rujet, на этом форуме очень много просящих, и очень мало людей, которые могут эти просьбы удовлетворять. Если бы Вы сразу привели, например, код (ссылку на код) на Delphi (или на том же JScript'е) -- реакция бы была совсем другой.
карма: 1

0
Гость
Ответов: 17029
Рейтинг: 0
#13: 2007-04-01 10:58:59 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2017-06-14 21:17:27
карма: 0

0
Ответов: 10
Рейтинг: 0
#14: 2007-04-01 11:03:55 ЛС | профиль | цитата
Как в delphi обратиться к объектам.
То есть код на VBscript
sub doWork(dt,ind)
Set objWMIService = GetObject("winmgmts:\. ootcimv2")
Set colMBs = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objMB in colMBs
sys.onCount(objMB.Manufacturer)
next
end sub
Как это будет выглядить в Delphi.
карма: 1

0
Ответов: 2058
Рейтинг: 28
#15: 2007-04-01 14:18:46 ЛС | профиль | цитата
rujet, свои коды засовывай в теги CODE. Вот так
sub doWork(dt,ind)
  Set objWMIService = GetObject("winmgmts:\.ootcimv2")
Set colMBs = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
For Each objMB in colMBs
sys.onCount(objMB.Manufacturer)
next
end sub
Будет красевей.
карма: 1

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)