Вверх ↑
Этот топик читают: Гость
Ответов: 47
Рейтинг: 1
#16: 2019-02-17 01:19:13 ЛС | профиль | цитата
andrestudio писал(а):
Gazzi, для WMI лучше vbscript ещё не придумали. Но по сути штатный d4 тебе нужен.

А от нового Дельфина разве нет преимуществ?
Я примерно понял как работает VBScript, но не понимаю как получить информацию от WMI

Редактировалось 1 раз(а), последний 2019-02-17 01:20:58
карма: 0

0
Ответов: 4319
Рейтинг: 466
#17: 2019-02-17 06:13:08 ЛС | профиль | цитата
Gazzi писал(а):
А от нового Дельфина разве нет преимуществ?

да вряд ли чтоб уж чтоб явных.
Gazzi писал(а):
но не понимаю как получить информацию от WMI

такие примеры всегда можно быстро найти http://scriptcoding.ru/2013/12/04/win32_baseboard-materinskaya-plata/
карма: 4

0
Ответов: 4319
Рейтинг: 466
#18: 2019-02-17 07:32:40 ЛС | профиль | цитата
вот так к примеру

Add(MainForm,2953706,21,105)
{
Width=601
Height=350
}
Add(VBJScript,16766643,182,112)
{
WorkPoints=#6:doWork|
EventPoints=#5:onRes|
Script=#43:Dim strComputer,colItems,objItem,strOption|0:|18:Sub doWork(dt,idx)|22: On Error Resume Next|0:|19: strComputer = "."|45: Set objWMIService = GetObject("winmgmts:" _|76: & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")|0:|73: Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")|0:|30: For Each objItem in colItems|50: 'For Each strOption in objItem.ConfigOptions|57: ' sys.onRes "Configuration Option: " & strOption|11: 'Next|46: 'sys.onRes "Caption: " & objItem.Caption|41: sys.onRes "Depth: " & objItem.Depth|53: sys.onRes "Description: " & objItem.Description|43: sys.onRes "Height: " & objItem.Height|56: sys.onRes "Hosting Board: " & objItem.HostingBoard|56: sys.onRes "Hot Swappable: " & objItem.HotSwappable|55: sys.onRes "Manufacturer: " & objItem.Manufacturer|41: sys.onRes "Model: " & objItem.Model|39: sys.onRes "Name: " & objItem.Name|53: sys.onRes "Other Identifying Information: " & _|38: objItem.OtherIdentifyingInfo|52: sys.onRes "Part Number: " & objItem.PartNumber|50: sys.onRes "Powered-On: " & objItem.PoweredOn|45: sys.onRes "Product: " & objItem.Product|49: sys.onRes "Removable: " & objItem.Removable|53: sys.onRes "Replaceable: " & objItem.Replaceable|78: sys.onRes "Requirements Description: " & objItem.RequirementsDescription|74: sys.onRes "Requires Daughterboard: " & objItem.RequiresDaughterBoard|56: sys.onRes "Serial Number: " & objItem.SerialNumber|37: sys.onRes "SKU: " & objItem.SKU|52: sys.onRes "Slot Layout: " & objItem.SlotLayout|70: sys.onRes "Special Requirements: " & objItem.SpecialRequirements|37: sys.onRes "Tag: " & objItem.Tag|45: sys.onRes "Version: " & objItem.Version|43: sys.onRes "Weight: " & objItem.Weight|41: sys.onRes "Width: " & objItem.Width|6: Next|0:|7:End Sub|
link(onRes,10132879:doAdd,[])
}
Add(Button,4996514,105,112)
{
Left=15
Top=25
link(onClick,16766643:doWork,[])
}
Add(StringTable,10132879,266,112)
{
Left=100
Top=10
Width=470
Height=285
Columns=#8:Name=120|9:Value=300|
StrDelimiter=":"
}

карма: 4

0
Ответов: 3837
Рейтинг: 620
#19: 2019-02-18 11:47:10 ЛС | профиль | цитата
Для нового FPC я поправил в этом модифицированном пакете: /topic/61538. Может и в Delphi 7 заработает.
А так да
andrestudio писал(а):
штатный d4 тебе нужен

карма: 17

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