Инструкция по эксплуатации Забавные инструкции Должностная инструкция Инструктаж Порядок обучения по охране труда Эксплуатация и правила безопасности Эксплуатация техники  
На главную Обратная связь
 
         
 

Определение uuid компьютера

05-08-2017

strComputer = "."

strWMINamespace = "rootCIMV2"

strWMIQuery = ":Win32_ComputerSystemProduct.IdentifyingNumber='MXG5380254 NA540',Name='PY196AV-ABA a1130e',Version='0n31211CT101AMBEM00'"

Set objWMIService = GetObject("winmgmts:\" & strComputer & strWMINamespace & strWMIQuery)

WScript.Echo "Number of properties of " & strWMIQuery & " class is " & objWMIService.Properties_.count

For Each objItem in objWMIService.Properties_

Wscript.Echo "Property: " & objItem.name & vbTab & "Value: " & objItem.value

Next

Теперь для завершения того, что делает WBEMTEST, и возврата экземпляров класса Win32_ComputerSystemProduct, нам понадобится воспользоваться методом SWbemServices.InstancesOf объекта SWbemServices. Чтобы разобраться, как это нужно делать, я просто адаптировал следующий сценарий со страницы старого доброго Windows 2000 Scripting Guide (см. здесь):

strComputer = "."

Set objSWbemServices = GetObject("winmgmts:\" & strComputer & "rootcimv2")

Set colSWbemObjectSet = objSWbemServices.ExecQuery _

("SEL ECT * FROM Win32_Service")

For Each objSWbemObject In colSWbemObjectSet

Wscript.Echo "Name: " & objSWbemObject.Name

Next

Моя собственная версия вышеприведенного сценария выглядит так:

strComputer = "."

Set objSWbemServices = GetObject("winmgmts:\" & strComputer & "rootcimv2")

Set colSWbemObjectSet = objSWbemServices.ExecQuery _

("SEL ECT * FR OM Win32_ComputerSystemProduct")

For Each objSWbemObject In colSWbemObjectSet

strIdentifyingNumber = objSWbemObject.IdentifyingNumber

strName = objSWbemObject.Name

strVersion = objSWbemObject.Version

Next


Интересно:
 Управление драйверами – введение
 Массовое заполнение базы mdt с помощью powershell
 Определение uuid компьютера
 Защита mdt (часть 2)
 Защита mdt (часть 1)

Добавить комментарий:

Введите ваше имя:

Комментарий:

 
Вторничный патч Microsoft за август 2010: наибольшее количество бюллетеней в истории!
Согласно информации, опубликованной на Microsoft Security Response Center, в этот вторник корпорация Microsoft выпустит 14 бюллетеней по безопасности, которые должны закрыть, в общей сложности, 34 различных уязвимости в собственном программном обеспечении софтверного гиганта.

Правительство Великобритании: обновление браузера IE6 стоит слишком дорого
Правительство Соединённого Королевства Великобритании и Северной Ирландии в данное время не планирует отказываться от веб-браузера Internet Explorer 6, мотивируя это тем, что средства, необходимые на обновление перевешивают те преимущества, которые можно получить от новой версии браузера. Шесть месяцев назад было подано ходатайство в надежде, что Соединённое Королевство откажется от использования самого ненавистного браузера во всём мире.

Вышла финальная версия Office Migration Planning Manager 2010
Office Migration Planning Manager 2010 (OMPM) – инструмент, позволяющий анализировать имеющиеся документы Office на возможные проблемы при конвертации их в версии Office 2010. То есть, с помощью OMPM 2010 можно без проблем проанализировать и устранить проблемы, возникающие при конвертации документов из бинарных файловых форматов (Office 97-2003: .doc, .xls, и так далее) в файловый формат OpenXML (Office версии 2007 и выше: .docx, .xlsx, и т.д.). Инструмент также содержит в себе специальный конвертер Office File Converter (OFC), который позволит конвертировать сразу несколько "бинарных" документов в формат OpenXML.

 
Rambler's Top100