DalayLamer Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору On Error Resume Next Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 arrComputers = Array("localhost") colText = "" For Each strComputer In arrComputers     colText = colText & "==========================================" & Chr(13)     colText = colText & "Computer: " & strComputer & Chr(13)     colText = colText & "==========================================" & Chr(13)     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")     Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)     For Each objItem In colItems         colText = colText & "Caption: " & objItem.Caption & Chr(13)         colText = colText & "CSDVersion: " & objItem.CSDVersion & Chr(13)         WScript.Echo colText     Next Next Всего записей: 367 | Зарегистр. 19-10-2005 | Отправлено: 14:45 04-09-2009 | Исправлено: DalayLamer, 14:46 04-09-2009

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2

ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование