Вниз
Скачать: CL | DM;

Работа с WMI   Найти похожие ветки 

← →
Yanis ©   (2007-07-06 11:03) [0]

Решил выполнить одну рутинную задачку при помощи WMI.
Появилась проблемка, которую я надеюсь мне помогут здесь разрешить.
У меня есть код, который определяем имя компьютера, на котором запущен код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
   "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
   Wscript.Echo "-----------------------------------"
   Wscript.Echo "Win32_ComputerSystem instance"
   Wscript.Echo "-----------------------------------"
   Wscript.Echo "Name: " & objItem.Name
Next

Я подумал, что т.к. свойство Name не является массивом (написано, что его тип string), то можно узнать его значение не используя For…Each…in а просто обратившись к какому-либо свойству.
Подскажите можно ли это сделать и как именно.


← →
umbra ©   (2007-07-06 11:21) [1]

и сколько имен печатается при выполнении скрипта?


← →
Yanis ©   (2007-07-06 11:23) [2]

Одно. Потому и хотелось бы реализовать «получение значения свойства», а не «перечисление».


← →
umbra ©   (2007-07-06 11:51) [3]

как написано в мсдн, поиск элемента в коллекции все равно требует пересмотра всех элементов. поэтому нет смысла огород городить. К тому же, коллекция, которую возвращает ExecQuery индексируется какими-то загадочными "относительными путями", которые в применении к компьютерам значат неясно что. Проще вывести переменную окружения COMPUTERNAME :)


← →
Jeer ©   (2007-07-06 17:00) [4]

var WshNetwork;
WshNetwork = WScript.CreateObject("WScript.Network");
WScript.Echo(WshNetwork.ComputerName);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c
15-1183964561
boriskb
2007-07-09 11:02
2007.08.05
Просьба к сайтостроителям


3-1177408993
DROWSYS
2007-04-24 14:03
2007.08.05
BDEADMIN.exe


9-1142595061
KiberKot
2006-03-17 14:31
2007.08.05
проблемы с DirectDraw


15-1183578644
P
2007-07-04 23:50
2007.08.05
"Большой бум" и фундаментальная наука.


2-1184119709
Biggelow
2007-07-11 06:08
2007.08.05
RC4




   Наверх