Simples Inventário de Máquinas com VBScript
Mais um post de WMI e VBScript. É um script bem simples que usa a Classe Win32_OperatingSystem pra retornar informações da máquina como Sistema Operacional, Service Pack, Serial.
Usando a criatividade, podemos evoluir nele e buscar esses dados de todas as máquinas de nossa rede, tendo assim um inventário de máquinas atualizado de forma bem prática.
Segue :
' "." para computador local ou o nome do computador remoto
strComputer = "."
' Objeto WMI
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")
' Classe Win32_OperatingSystem
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
' Loop
For Each objItem in colItems
WScript.Echo "Computador: " & objItem.CSName & VbCr & _
"----------------------------------------------------" & vbCr & _
"Fabricante: " & objItem.Manufacturer & VbCr & _
"Sistema Operacional: " & objItem.Caption & VbCr & _
"Versão: " & objItem.Version & VbCr & _
"Service Pack: " & objItem.CSDVersion & VbCr & _
"CodeSet: " & objItem.CodeSet & VbCr & _
"CountryCode: " & objItem.CountryCode & VbCr & _
"OSLanguage: " & objItem.OSLanguage & VbCr & _
"SerialNumber: " & objItem.SerialNumber
Next
' Finalizando o objeto
Set objWMIService = Nothing
Nosso retorno :
Espero que seja útil
[]s
Recuperando Informações da BIOS com Windows Management Instrumentation e VBScript
Windows Management Instrumentation, ou simplesmente WMI, é uma biblioteca cujas classes nos permitem obter uma série de informações sobre o sistema.
Vou postar um exemplo simples onde recuperamos alguns dados da BIOS usando a classe Win32_BIOS com VBScript.
'-- Nome do computador remoto, ou simplesmente "." para local
strComputer = "."
'-- Objeto WMI
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'-- Classe Win32_BIOS
Set colBIOS = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
'-- Loop nas propriedades
For each objBIOS in colBIOS
Wscript.Echo "Build Number: " & objBIOS.BuildNumber & vbCrLf & _
"Current Language: " & objBIOS.CurrentLanguage & vbCrLf & _
"Installable Languages: " & objBIOS.InstallableLanguages & vbCrLf & _
"Manufacturer: " & objBIOS.Manufacturer & vbCrLf & _
"Name: " & objBIOS.Name & vbCrLf & _
"Primary BIOS: " & objBIOS.PrimaryBIOS & vbCrLf & _
"Release Date: " & objBIOS.ReleaseDate & vbCrLf & _
"Serial Number: " & objBIOS.SerialNumber & vbCrLf & _
"SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion & vbCrLf & _
"SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion & vbCrLf & _
"SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion & vbCrLf & _
"SMBIOS Present: " & objBIOS.SMBIOSPresent & vbCrLf & _
"Status: " & objBIOS.Status & vbCrLf & _
"Version: " & objBIOS.Version
Next
'-- Finaliza objeto WMI
Set objWMIService = Nothing
Salvando o código acima em um arquivo .vbs, ao executá-lo, o resultado é o da imagem abaixo :
Espero que seja útil
[]s
Enviando Emails com VBScript
Olá,
vejam uma ótima referência de envio de emails com VBScript
http://www.paulsadowski.com/WSH/cdo.htm
[]s