s_Nomad
09-02-2015, 15:36
Добрый день. За ранее прошу прощения за глупый и нубский вопрос.
Есть N ПК в группе в домене (весь домен очень большой, нужны только пк из этой группы). Нужно узнать сколько у каждого из ник ОЗУ. Как я понял это не сложно сделать по WMI
Как правильно доработать скрипт (это найболее подходящие под мою задачу что я нашел)
' Memory.vbs
' Sample VBScript to discover how much RAM in computer
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.4 - December 2010
' -------------------------------------------------------'
Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer, intRamMB
strComputer = "."
strComputer = InputBox("Enter Computer name", _
"Find Computer Memory", strComputer)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
intRamMB = int((objComputer.TotalPhysicalMemory) /1048576)+1
Wscript.Echo "System Name: " & objComputer.Name _
& vbCr & "Total RAM: " & intRamMB & " Mb"
Next
WScript.Quit
' End of free example of Memory WMI / VBScript
взят он от сюда http://www.computerperformance.co.uk/vbscript/wmi_memory.htm#Example_2_-_WMI_script_with_an_Input_Box_to_check_your_Computers_Memory_
чтоб я взять список ПК из файла (выгрузка из АД) и записать результаты в файл.
Заранее благодарю за помощь.
P.S. С скриптовыми языками не знаком (ни с шелом ни с вбс), подойдет помощь на любом из них.
Есть N ПК в группе в домене (весь домен очень большой, нужны только пк из этой группы). Нужно узнать сколько у каждого из ник ОЗУ. Как я понял это не сложно сделать по WMI
Как правильно доработать скрипт (это найболее подходящие под мою задачу что я нашел)
' Memory.vbs
' Sample VBScript to discover how much RAM in computer
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.4 - December 2010
' -------------------------------------------------------'
Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer, intRamMB
strComputer = "."
strComputer = InputBox("Enter Computer name", _
"Find Computer Memory", strComputer)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
intRamMB = int((objComputer.TotalPhysicalMemory) /1048576)+1
Wscript.Echo "System Name: " & objComputer.Name _
& vbCr & "Total RAM: " & intRamMB & " Mb"
Next
WScript.Quit
' End of free example of Memory WMI / VBScript
взят он от сюда http://www.computerperformance.co.uk/vbscript/wmi_memory.htm#Example_2_-_WMI_script_with_an_Input_Box_to_check_your_Computers_Memory_
чтоб я взять список ПК из файла (выгрузка из АД) и записать результаты в файл.
Заранее благодарю за помощь.
P.S. С скриптовыми языками не знаком (ни с шелом ни с вбс), подойдет помощь на любом из них.