Серый форум — VBS/WMI: генерация MOF-исходника для класса WMI

Re: VBS/WMI: генерация MOF-исходника для класса WMI

2011-04-03T10:26:18Z

Пока только подходим к этому.

И, как мне кажется, возможности открываются колоссальные...

Re: VBS/WMI: генерация MOF-исходника для класса WMI

2011-04-03T07:56:13Z

Кстати, кто-нибудь создавал свои классы в WMI? И в каких случаях?

Re: VBS/WMI: генерация MOF-исходника для класса WMI

2011-04-03T05:50:47Z

Сделано.

Re: VBS/WMI: генерация MOF-исходника для класса WMI

2011-04-03T05:21:51Z

Браузер подвёл при вставке?

Видимо движок форума при постинге заглючил.

там должно быть:

    msgbox "Незвестный класс:"& vbcr &" """& classname&"""",16,"Error"

Подредактируйте если не сложно, дабы мне не "метить" пост лишними заметками о редактировании.

Re: VBS/WMI: генерация MOF-исходника для класса WMI

2011-04-03T03:57:18Z

(24, 48) Ошибка компиляции Microsoft VBScript: Предполагается наличие окончания инструкции
    msgbox "Незвестный класс:"& vbcr &" """& classname&"""",16,"Error"

Браузер подвёл при вставке?

VBS/WMI: генерация MOF-исходника для класса WMI

2011-04-03T02:50:51Z

Скрипт генерирует файл с описанием свойств и методов на языке MOF (Managed Object Format - язык на котором пишутся классы для WMI) для заданного WMI-класса.
Созданный файл впоследствие можно перекомпилировать и добавлять в репозиторий при помощи mofcomp.exe


'*****************************************************************************************
'* Имя:         GetMOF.vbs
'* Язык:        VBScript
'* commandline: GetMOF.vbs [WMI_class]
'*
'* Описание:  Скрипт предназначен для извлечения MOF-исходника WMI-класса из репозитория CIM.
'*			В качестве параметра запуска либо во всплывающем окне
'*			задается имя интересующего класса WMI.
'*            Впоследствии скрипт создаёт MOF-файл с описанием свойств и методов заданного WMI-класса.
'*******************************************************************************************

Set WshShell = WScript.CreateObject("Wscript.Shell")
if Wscript.Arguments.Count=0 then 
  classname = InputBox ("Имя WMI-класса ",,"Win32_Process")
else
  classname = Wscript.Arguments.Item(0)
end if
if classname="" then WScript.Quit
set objserv = GetObject ("winmgmts:\\.\Root\CIMV2")
wbemFlag = &h20000
on error resume next
	MOF = objServ.Get (classname,wbemFlag).GetObjectText_()
if err.number <>0 then 
	msgbox "Незвестный класс:"& vbcr &" """& classname&"""",16,"Error"
	WScript.quit
end if	
Set File= CreateObject ("Scripting.FileSystemObject").OpenTextFile (classname&".mof",2, True)
File.WriteLine (MOF)
File.Close()