Código: Selecionar todos
' Lista propriedades do sistema operacional
' Retirado do fórum itbr.org
' Por Marcelo Leães - [email protected]
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo "Versão: " & objOperatingSystem.Caption
Wscript.Echo "Build: " & objOperatingSystem.BuildNumber
Wscript.Echo "Tipo: " & objOperatingSystem.BuildType
Wscript.Echo "Boot: " & objOperatingSystem.BootDevice
Wscript.Echo "Código de País: " & objOperatingSystem.CountryCode
Wscript.Echo "Debug: " & objOperatingSystem.Debug
dtmConvertedDate.Value = objOperatingSystem.InstallDate
dtmInstallDate = dtmConvertedDate.GetVarDate
Wscript.Echo "Instalado em: " & dtmInstallDate
Wscript.Echo "Usuários Licenciados: " & _
objOperatingSystem.NumberOfLicensedUsers
Wscript.Echo "Organização: " & objOperatingSystem.Organization
Wscript.Echo "License Key: " & objOperatingSystem.SerialNumber
Next