by Karthikeyan (187 Submissions)
Category: Miscellaneous
Compatability: VB Script
Difficulty: Unknown Difficulty
Originally Published: Thu 29th July 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Get the details about your Operating System using Win32_OperatingSystem WMI Class
VBcoders
'Generated using 'WMI Win32 Class Autoscript Generator' - Developed by Karthikeyan
'Homepage: http://www.geocities.com/marskarthik
On Error Resume Next
Computer = "."
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Win32_OperatingSystem.txt", ForAppending, True)
TextFile.WriteLine "Script for Win32_OperatingSystem Class by Karthikeyan"
TextFile.WriteLine
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each SubItems in Items
TextFile.WriteLine "********************************************************************"
TextFile.WriteLine "BootDevice: " & SubItems.BootDevice
TextFile.WriteLine "BuildNumber: " & SubItems.BuildNumber
TextFile.WriteLine "BuildType: " & SubItems.BuildType
TextFile.WriteLine "Caption: " & SubItems.Caption
TextFile.WriteLine "CodeSet: " & SubItems.CodeSet
TextFile.WriteLine "CountryCode: " & SubItems.CountryCode
TextFile.WriteLine "CreationClassName: " & SubItems.CreationClassName
TextFile.WriteLine "CSCreationClassName: " & SubItems.CSCreationClassName
TextFile.WriteLine "CSDVersion: " & SubItems.CSDVersion
TextFile.WriteLine "CSName: " & SubItems.CSName
TextFile.WriteLine "CurrentTimeZone: " & SubItems.CurrentTimeZone
TextFile.WriteLine "Debug: " & SubItems.Debug
TextFile.WriteLine "Description: " & SubItems.Description
TextFile.WriteLine "Distributed: " & SubItems.Distributed
TextFile.WriteLine "EncryptionLevel: " & SubItems.EncryptionLevel
TextFile.WriteLine "ForegroundApplicationBoost: " & SubItems.ForegroundApplicationBoost
TextFile.WriteLine "FreePhysicalMemory: " & SubItems.FreePhysicalMemory
TextFile.WriteLine "FreeSpaceInPagingFiles: " & SubItems.FreeSpaceInPagingFiles
TextFile.WriteLine "FreeVirtualMemory: " & SubItems.FreeVirtualMemory
TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
TextFile.WriteLine "LargeSystemCache: " & SubItems.LargeSystemCache
TextFile.WriteLine "LastBootUpTime: " & SubItems.LastBootUpTime
TextFile.WriteLine "LocalDateTime: " & SubItems.LocalDateTime
TextFile.WriteLine "Locale: " & SubItems.Locale
TextFile.WriteLine "Manufacturer: " & SubItems.Manufacturer
TextFile.WriteLine "MaxNumberOfProcesses: " & SubItems.MaxNumberOfProcesses
TextFile.WriteLine "MaxProcessMemorySize: " & SubItems.MaxProcessMemorySize
TextFile.WriteLine "Name: " & SubItems.Name
TextFile.WriteLine "NumberOfLicensedUsers: " & SubItems.NumberOfLicensedUsers
TextFile.WriteLine "NumberOfProcesses: " & SubItems.NumberOfProcesses
TextFile.WriteLine "NumberOfUsers: " & SubItems.NumberOfUsers
TextFile.WriteLine "Organization: " & SubItems.Organization
TextFile.WriteLine "OSLanguage: " & SubItems.OSLanguage
TextFile.WriteLine "OSProductSuite: " & SubItems.OSProductSuite
TextFile.WriteLine "OSType: " & SubItems.OSType
TextFile.WriteLine "OtherTypeDescription: " & SubItems.OtherTypeDescription
TextFile.WriteLine "PlusProductID: " & SubItems.PlusProductID
TextFile.WriteLine "PlusVersionNumber: " & SubItems.PlusVersionNumber
TextFile.WriteLine "Primary: " & SubItems.Primary
TextFile.WriteLine "ProductType: " & SubItems.ProductType
TextFile.WriteLine "QuantumLength: " & SubItems.QuantumLength
TextFile.WriteLine "QuantumType: " & SubItems.QuantumType
TextFile.WriteLine "RegisteredUser: " & SubItems.RegisteredUser
TextFile.WriteLine "SerialNumber: " & SubItems.SerialNumber
TextFile.WriteLine "ServicePackMajorVersion: " & SubItems.ServicePackMajorVersion
TextFile.WriteLine "ServicePackMinorVersion: " & SubItems.ServicePackMinorVersion
TextFile.WriteLine "SizeStoredInPagingFiles: " & SubItems.SizeStoredInPagingFiles
TextFile.WriteLine "Status: " & SubItems.Status
TextFile.WriteLine "SuiteMask: " & SubItems.SuiteMask
TextFile.WriteLine "SystemDevice: " & SubItems.SystemDevice
TextFile.WriteLine "SystemDirectory: " & SubItems.SystemDirectory
TextFile.WriteLine "SystemDrive: " & SubItems.SystemDrive
TextFile.WriteLine "TotalSwapSpaceSize: " & SubItems.TotalSwapSpaceSize
TextFile.WriteLine "TotalVirtualMemorySize: " & SubItems.TotalVirtualMemorySize
TextFile.WriteLine "TotalVisibleMemorySize: " & SubItems.TotalVisibleMemorySize
TextFile.WriteLine "Version: " & SubItems.Version
TextFile.WriteLine "WindowsDirectory: " & SubItems.WindowsDirectory
TextFile.WriteLine "********************************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Win32_OperatingSystem.txt",1,True
No comments have been posted about Get the details about your Operating System using Win32_OperatingSystem WMI Class. Why not be the first to post a comment about Get the details about your Operating System using Win32_OperatingSystem WMI Class.
