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

Сборник полезных скриптов для  сотрудников IT подразделения.





1. Информация о процессоре (сохраните в файл .vbs)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems
    info =  "-----------------------------------" & vbCrLf & _
     "Win32_Processor instance" & vbCrLf & _
     "-----------------------------------" & vbCrLf & _
     "Caption: " & objItem.Caption & vbCrLf & _
     "Description: " & objItem.Description & vbCrLf & _
     "DeviceID: " & objItem.DeviceID & vbCrLf & _
     "Family: " & objItem.Family & vbCrLf & _
     "Name: " & objItem.Name & vbCrLf & _
     "OtherFamilyDescription: " & objItem.OtherFamilyDescription & vbCrLf & _
     "ProcessorId: " & objItem.ProcessorId & vbCrLf & _
     "ProcessorType: " & objItem.ProcessorType & vbCrLf & _
     "SystemName: " & objItem.SystemName & vbCrLf & _
     "UniqueId: " & objItem.UniqueId & vbCrLf

 Wscript.Echo info
Next

Его вывод:

2. Информация об оперативной памяти. по каждому банку.

strComputer = "."

strRES = ""

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

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_PhysicalMemory",,48) 

For Each objItem in colItems

     strRES = strRES & vbcrlf & "-----------------------------------" & vbcrlf  & "Win32_PhysicalMemory instance" & vbcrlf & "-----------------------------------" & vbcrlf & "BankLabel: " & objItem.BankLabel & vbcrlf & "Capacity: " & ((objItem.Capacity /1024) / 1024) & " MB" & vbcrlf & "FormFactor: " & objItem.FormFactor & vbcrlf & "Manufacturer: " & objItem.Manufacturer & vbcrlf & "MemoryType: " & objItem.MemoryType & vbcrlf & "Model: " & objItem.Model & vbcrlf & "SerialNumber: " & objItem.SerialNumber & vbcrlf & "Speed: " & objItem.Speed & vbcrlf

Next

Wscript.Echo "memory: " & strRES

и вывод:

3. Информация о сетевых адаптерах. По каждому адаптеру у которого есть MAC адрес.

strComputer = "."
strRes = ""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48)
For Each objItem in colItems
If isNull(objItem.MACAddress) Then
Else
strRes = strRes & vbcrlf & "-----------------------------------" _
& vbcrlf & "Win32_NetworkAdapterConfiguration instance" _
& vbcrlf & "-----------------------------------"
If isNull(objItem.DefaultIPGateway) Then
strRes = strRes & vbcrlf & "DefaultIPGateway: "
Else
strRes = strRes & vbcrlf & "DefaultIPGateway: " & Join(objItem.DefaultIPGateway, ",")
End If

strRes = strRes & vbcrlf & "DHCPServer: " & objItem.DHCPServer _
& vbcrlf & "DNSDomain: " & objItem.DNSDomain _
& vbcrlf & "DNSHostName: " & objItem.DNSHostName
If isNull(objItem.IPAddress) Then
strRes = strRes & vbcrlf &  "IPAddress: "
Else
strRes = strRes & vbcrlf &  "IPAddress: " & Join(objItem.IPAddress, ",")
End If
If isNull(objItem.IPSubnet) Then
strRes = strRes & vbcrlf &  "IPSubnet: "
Else
strRes = strRes & vbcrlf &  "IPSubnet: " & Join(objItem.IPSubnet, ",")
End If
strRes = strRes & vbcrlf &  "IPXAddress: " & objItem.IPXAddress _
& vbcrlf & "MACAddress: " & objItem.MACAddress & vbcrlf

Wscript.Echo strRes
strRes = ""
End If
Next

И вывод: