Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Использование VbScript для администратора Windows


Выпуск #12

"Vbs, whs, js скрипты для администратора"

12 января 2012

Доброе время суток подписчик!

Сегодня символичный день 12 число 2012 года, поэтому не удержался и написал очередной выпуск рассылки. Сегодня коснёмся темы WMI ( Windows Management Instrumentation (инструментарий по управлению Windows)  подробнее можно будет посмотреть  http://ru.wikipedia.org/wiki/WMI ), а конкретно как можно получить с помощью её сведения по списку команд выполняемых при загрузке.


Вывод списка команд выполняемых при загрузке

Сегодня познакомимся с возможностями WMI и получением с помощью нее сведений о системе.

В нашем случкае будем работать с командой Win32_StartupCommand. Подробнее о ней можно почитать на msdn -  http://msdn.microsoft.com/en-us/library/windows/desktop/aa394464%28v=VS.85%29.aspx

И ниже скрипт:

'==========================================  Начало файла 
'Имя: StartUp.vbs 
'Язык: VBScript 
'Описание: Вывод списка файла выполняемых при загрузке
'========================================================== 
 
' Объявляем переменные
Dim strComputer       ' Имя компьютера
Dim strNamespace      ' Имя пространства имен
Dim strClass          ' Имя класса 
Dim objClass          ' Объект SWbemObject (класс WMI)
Dim colStartupCommands' Коллекция экземпляров класса WMI
Dim objStartupCommand ' Элемент коллекции
Dim strResult         ' Строка для вывода на экран


' Присваиваем начальные значения переменным
strComputer = "."
strNamespace = "Root\CIMV2"
strClass = "Win32_StartupCommand"
strResult = "Комманды выполняемые при загрузке компьютера :" & VbCrLf

' Получаем указатель на класс WMI 
Set objClass = GetObject("WinMgmts:\\" & strComputer & _
                         "\" & strNamespace & ":" & strClass)
' Создаем коллекцию экземпляров класса Win32_StartupCommand
Set colStartupCommands = objClass.Instances_

' Перебираем элементы коллекции 
For Each objStartupCommand in colStartupCommands
  strResult = strResult & objStartupCommand.Command & VbCrLf  
Next

' Выводим результат на экран
Wscript.Echo strResult
'==========================================  Конец файла       

Я буду очень рад, если мой скрипт кому-то окажет помощь. Пишите письма на e-mail , который указан внизу письма, буду рад оказать свою помощь.

Со мной можносвязаться по e-mail - novopashinwm@mail.ru

Copyright 2012 Новопашин Владимир. Все права защищены.


В избранное