VBScript для IT. Часть 2

продолжение предыдущей части с полезными для айтишников скриптами, помогающими в работе.



1. Более детальные данные о процессоре.

strComputer = "."
result = ""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems
    result = result + "-----------------------------------" & vbCrLf & _
    "Win32_Processor instance" & vbCrLf & _
    "-----------------------------------" & vbCrLf & _
    "AddressWidth: " & objItem.AddressWidth & vbCrLf & _
    "Architecture: " & objItem.Architecture & vbCrLf & _
    "Availability: " & objItem.Availability & vbCrLf & _
    "Caption: " & objItem.Caption & vbCrLf & _
    "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode & vbCrLf & _
    "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig & vbCrLf & _
    "CpuStatus: " & objItem.CpuStatus & vbCrLf & _
    "CreationClassName: " & objItem.CreationClassName & vbCrLf & _
    "CurrentClockSpeed: " & objItem.CurrentClockSpeed & vbCrLf & _
    "CurrentVoltage: " & objItem.CurrentVoltage & vbCrLf & _
    "DataWidth: " & objItem.DataWidth & vbCrLf & _
    "Description: " & objItem.Description & vbCrLf & _
    "DeviceID: " & objItem.DeviceID & vbCrLf & _
    "ErrorCleared: " & objItem.ErrorCleared & vbCrLf & _
    "ErrorDescription: " & objItem.ErrorDescription & vbCrLf & _
    "ExtClock: " & objItem.ExtClock & vbCrLf & _
    "Family: " & objItem.Family & vbCrLf & _
    "InstallDate: " & objItem.InstallDate & vbCrLf & _
    "L2CacheSize: " & objItem.L2CacheSize & vbCrLf & _
    "L2CacheSpeed: " & objItem.L2CacheSpeed & vbCrLf & _
    "LastErrorCode: " & objItem.LastErrorCode & vbCrLf & _
    "Level: " & objItem.Level & vbCrLf & _
    "LoadPercentage: " & objItem.LoadPercentage & vbCrLf & _
    "Manufacturer: " & objItem.Manufacturer & vbCrLf & _
    "MaxClockSpeed: " & objItem.MaxClockSpeed & vbCrLf & _
    "Name: " & objItem.Name & vbCrLf & _
    "OtherFamilyDescription: " & objItem.OtherFamilyDescription & vbCrLf & _
    "PNPDeviceID: " & objItem.PNPDeviceID & vbCrLf
    If isNull(objItem.PowerManagementCapabilities) Then
        result = result + "PowerManagementCapabilities: " & vbCrLf
    Else
        result = result + "PowerManagementCapabilities: " & Join(objItem.PowerManagementCapabilities, ",") & vbCrLf
    End If
    result = result + "PowerManagementSupported: " & objItem.PowerManagementSupported & vbCrLf & _
    "ProcessorId: " & objItem.ProcessorId & vbCrLf & _
    "ProcessorType: " & objItem.ProcessorType & vbCrLf & _
    "Revision: " & objItem.Revision & vbCrLf & _
    "Role: " & objItem.Role & vbCrLf & _
    "SocketDesignation: " & objItem.SocketDesignation & vbCrLf & _
    "Status: " & objItem.Status & vbCrLf & _
    "StatusInfo: " & objItem.StatusInfo & vbCrLf & _
    "Stepping: " & objItem.Stepping & vbCrLf & _
    "SystemCreationClassName: " & objItem.SystemCreationClassName & vbCrLf & _
    "SystemName: " & objItem.SystemName & vbCrLf & _
    "UniqueId: " & objItem.UniqueId & vbCrLf & _
    "UpgradeMethod: " & objItem.UpgradeMethod & vbCrLf & _
    "Version: " & objItem.Version & vbCrLf & _
    "VoltageCaps: " & objItem.VoltageCaps & vbCrLf
Wscript.Echo result
Next

И вывод:

2. Более детальное описание параметров оперативной памяти:

strComputer = "."
result = ""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory",,48)
For Each objItem in colItems
    result = result & "-----------------------------------" & vbCrLf _
     & "BankLabel: " & objItem.BankLabel & vbCrLf _
     & "Capacity: " & objItem.Capacity /1024 /1024 & vbCrLf _
     & "Caption: " & objItem.Caption & vbCrLf _
     & "DataWidth: " & objItem.DataWidth & vbCrLf _
     & "Description: " & objItem.Description & vbCrLf _
     & "DeviceLocator: " & objItem.DeviceLocator & vbCrLf _
     & "FormFactor: " & objItem.FormFactor & vbCrLf _
     & "HotSwappable: " & objItem.HotSwappable & vbCrLf _
     & "InstallDate: " & objItem.InstallDate & vbCrLf _
     & "InterleaveDataDepth: " & objItem.InterleaveDataDepth & vbCrLf _
     & "InterleavePosition: " & objItem.InterleavePosition & vbCrLf _
     & "Manufacturer: " & objItem.Manufacturer & vbCrLf _
     & "MemoryType: " & objItem.MemoryType & vbCrLf _
     & "Model: " & objItem.Model & vbCrLf _
     & "Name: " & objItem.Name & vbCrLf _
     & "OtherIdentifyingInfo: " & objItem.OtherIdentifyingInfo & vbCrLf _
     & "PartNumber: " & objItem.PartNumber & vbCrLf _
     & "PositionInRow: " & objItem.PositionInRow & vbCrLf _
     & "PoweredOn: " & objItem.PoweredOn & vbCrLf _
     & "Removable: " & objItem.Removable & vbCrLf _
     & "Replaceable: " & objItem.Replaceable & vbCrLf _
     & "SerialNumber: " & objItem.SerialNumber & vbCrLf _
     & "SKU: " & objItem.SKU & vbCrLf _
     & "Speed: " & objItem.Speed & vbCrLf _
     & "Status: " & objItem.Status & vbCrLf _
     & "Tag: " & objItem.Tag & vbCrLf _
     & "TotalWidth: " & objItem.TotalWidth & vbCrLf _
     & "TypeDetail: " & objItem.TypeDetail & vbCrLf _
& "Version: " & objItem.Version & vbCrLf
    Wscript.Echo result
Next

Вывод: