Вопросы Теги

Самый легкий способ найти разрешение экрана всех машин в сети окон?

Это кажется на важный поиск сетевой настройки по запросу виртуальных машин Xen, таким образом, Вы могли бы хотеть посмотреть на Cobbler & Koan, ряд инструментов, разработанных Red Hat для точно этого вида варианта использования. Они поддерживают много различных платформ виртуализации (Xen, qemu, KVM, VMware) и обеспечивают и CLI, веб-интерфейс и много разработок API. Больше информации в Википедии.

Для связывания всех определенных поведений, которые Вы хотите Вы, возможно, должны сделать некоторые дополнительные сценарии, но это должно дать Вам сильную начальную точку.

1
задан 17 February 2010 в 13:03
3 ответа

Благодаря @mh для ссылки на WMI. Вот сценарий, с которым я закончил.

On Error resume next

strDomain = "domain.local"

Set objFSO = CreateObject("Scripting.FileSystemObject")
if err.number <> 0 then Wscript.quit

set domObj = GetObject("WinNT://" & strDomain)
domObj.Filter = Array("computer")
For Each objComputer In domObj
    err.clear
    strComputer = objComputer.Name
    computerName = "UNKNOWN"
    loggedOnUser =""
    sp = ""
    ram = ""
    cpu = ""
    cpuMhz = ""
    xres = ""
    yres = ""

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    if err.number=0 then
    ' Query "BIOS" properties
    ' computer name
    Set colItems = objWMIService.ExecQuery("Select * From Win32_BIOS")
    For Each objItem in colItems
        computerName = objItem.Path_.Server
    Next

    ' Query Processor properties
    ' Family
    ' ...
    Set colItems = objWMIService.ExecQuery("Select * From Win32_Processor")
    For Each objItem in colItems
        cpu = objItem.Manufacturer & " " & objItem.Name
        cpuMhz = objItem.MaxClockSpeed
    Next

    ' Query Operating System properties
    ' SP Level
    ' RAM
    Set colItems = objWMIService.ExecQuery("Select * From Win32_OperatingSystem")
    For Each objItem in colItems
        sp = objItem.ServicePackMajorVersion
        ram = objItem.TotalVisibleMemorySize
    Next

    ' Query Computer System properties
    ' User
    Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
    For Each objItem in colItems
        loggedOnUser = objItem.UserName
    Next

    ' Query Display properties
    ' Screen resolution
        Set colItems = objWMIService.ExecQuery("Select * From Win32_DisplayConfiguration")
        For Each objItem in colItems
            xres = objItem.PelsWidth
            yres = objItem.PelsHeight
        Next

        strFile = "\\server\data\inventory\" & computerName & ".txt"

        Set objTextFile = objFSO.OpenTextFile(strFile, 2, True)
        if err.number <> 0 then Wscript.quit

        objTextFile.WriteLine("Computer Name: " & strComputer)
        if err.number <> 0 then Wscript.quit

    if loggedOnUser <> "" then objTextFile.WriteLine("User: " & loggedOnUser)
    if cpu <> "" then objTextFile.writeLine("CPU: " & cpu)
    if cpuMhz <> "" then objTextFile.writeLine("CPU MHZ: " & cpuMhz)
    if ram <> "" then objTextFile.WriteLine("RAM: " & ram)
    if sp <> "" then objTextFile.WriteLine("Service Pack: " & sp)
    if xres <> "" then objTextFile.WriteLine("Horizontal resolution: " & xres)
    if yres <> "" then objTextFile.WriteLine("Vertical resolution: " & yres)

        objTextFile.Close

    end if
next
1
ответ дан 3 December 2019 в 22:39

Для клиентов Windows можно использовать сценарий WMI для получения этого. Информация здесь должна помочь запустить Вас.

1
ответ дан 3 December 2019 в 22:39
  • 1
    Хорошие взгляды, но как я заставляю это работать на всех клиентских машинах в домене и сообщать мне? –  Draemon 17 February 2010 в 13:29
  • 2
    Выполните сценарий при входе в систему, который производит результаты к текстовому файлу (названный с клиентом computer' s name.txt) с результатами к доле всех-доступа-для-записи? –  Bart Silverstrim 17 February 2010 в 14:33
  • 3
    Должно быть достаточно легко адаптироваться, после того как у Вас есть список имен компьютеров для запуска с. Цикл через список и вызов sub, содержащий большую часть кода в той ссылке. Результаты могли перейти к доле файла, быть отправлены по электронной почте или быть зарегистрированы к базе данных. Но we' ре, добирающееся больше в область " как записать VBScript" здесь, который, вероятно, лучше покрыт отдельным вопросом однажды you' ve принял решение на который способ пойти. –  Maximus Minimus 17 February 2010 в 15:22
  • 4
    @mh не действительно. Я знаю, как записать VBScript, но мне don' t знают WMI. То, что я действительно имел в виду, было " как работать в logon" но I' ve понял это. Что я didn' t понимают, то, что можно сделать это от одной машины, учитывая список других машин. –  Draemon 17 February 2010 в 15:30

Можно сделать это через SCOM, но это - большой молоток для взламывания маленькой гайки, чтобы быть честным.

0
ответ дан 3 December 2019 в 22:39

Теги

Похожие вопросы