by Anonymous (267 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 4th May 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
WMI sample: retrieves Operating System properties of a remote or local computer,like build number, os type, language, system directory and so
VBcoders
' This function lists Operating System properties of a remote or local computer,
' like build number, os type, language, system directory, etc.
' Goto http://www.activexperts.com/activmonitor and click on WMI Samples
' for more samples
Sub ListOSProperties( strComputer )
Dim objWMIService, colItems
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "BootDevice: " & objItem.BootDevice
Wscript.Echo "BuildNumber: " & objItem.BuildNumber
Wscript.Echo "BuildType: " & objItem.BuildType
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CodeSet: " & objItem.CodeSet
Wscript.Echo "CountryCode: " & objItem.CountryCode
Wscript.Echo "CreationClassName: " & objItem.CreationClassName
Wscript.Echo "CSCreationClassName: " & objItem.CSCreationClassName
Wscript.Echo "CSDVersion: " & objItem.CSDVersion
Wscript.Echo "CSName: " & objItem.CSName
Wscript.Echo "CurrentTimeZone: " & objItem.CurrentTimeZone
Wscript.Echo "Debug: " & objItem.Debug
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Distributed: " & objItem.Distributed
Wscript.Echo "ForegroundApplicationBoost: " & objItem.ForegroundApplicationBoost
Wscript.Echo "FreePhysicalMemory: " & objItem.FreePhysicalMemory
Wscript.Echo "FreeSpaceInPagingFiles: " & objItem.FreeSpaceInPagingFiles
Wscript.Echo "FreeVirtualMemory: " & objItem.FreeVirtualMemory
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "LastBootUpTime: " & objItem.LastBootUpTime
Wscript.Echo "LocalDateTime: " & objItem.LocalDateTime
Wscript.Echo "Locale: " & objItem.Locale
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "MaxNumberOfProcesses: " & objItem.MaxNumberOfProcesses
Wscript.Echo "MaxProcessMemorySize: " & objItem.MaxProcessMemorySize
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NumberOfLicensedUsers: " & objItem.NumberOfLicensedUsers
Wscript.Echo "NumberOfProcesses: " & objItem.NumberOfProcesses
Wscript.Echo "NumberOfUsers: " & objItem.NumberOfUsers
Wscript.Echo "Organization: " & objItem.Organization
Wscript.Echo "OSLanguage: " & objItem.OSLanguage
Wscript.Echo "OSProductSuite: " & objItem.OSProductSuite
Wscript.Echo "OSType: " & objItem.OSType
Wscript.Echo "OtherTypeDescription: " & objItem.OtherTypeDescription
Wscript.Echo "PlusProductID: " & objItem.PlusProductID
Wscript.Echo "PlusVersionNumber: " & objItem.PlusVersionNumber
Wscript.Echo "Primary: " & objItem.Primary
Wscript.Echo "QuantumLength: " & objItem.QuantumLength
Wscript.Echo "QuantumType: " & objItem.QuantumType
Wscript.Echo "RegisteredUser: " & objItem.RegisteredUser
Wscript.Echo "SerialNumber: " & objItem.SerialNumber
Wscript.Echo "ServicePackMajorVersion: " & objItem.ServicePackMajorVersion
Wscript.Echo "ServicePackMinorVersion: " & objItem.ServicePackMinorVersion
Wscript.Echo "SizeStoredInPagingFiles: " & objItem.SizeStoredInPagingFiles
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "SystemDevice: " & objItem.SystemDevice
Wscript.Echo "SystemDirectory: " & objItem.SystemDirectory
Wscript.Echo "TotalSwapSpaceSize: " & objItem.TotalSwapSpaceSize
Wscript.Echo "TotalVirtualMemorySize: " & objItem.TotalVirtualMemorySize
Wscript.Echo "TotalVisibleMemorySize: " & objItem.TotalVisibleMemorySize
Wscript.Echo "Version: " & objItem.Version
Wscript.Echo "WindowsDirectory: " & objItem.WindowsDirectory
Next
End Sub
' Main
Dim strComputer
Do
strComputer = inputbox( "Please enter a computername or . for local computer", "Input" )
Loop until strComputer <> ""
ListOSProperties( strComputer )
WScript.Echo( vbCrlf & "For more samples, goto http://www.activexperts.com/activmonitor and click" )
WScript.Echo( "on WMI samples" )
No comments have been posted about WMI sample: retrieves Operating System properties of a remote or local computer,like build number, . Why not be the first to post a comment about WMI sample: retrieves Operating System properties of a remote or local computer,like build number, .
