Show Operating System Properties, Local or Remote Computer (VBScript/WMI)

Category:

System/API

Type:

Snippets

Difficulty:

Intermediate

Author: Francis Danta

Version Compatibility: Visual Basic 6, Visual Basic Script

More information:

This demonstrats some WMI samples of showing OS system properties on local or remote computers.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

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.activxperts.com/activmonitor and click" )
WScript.Echo( "on WMI samples" )