Thank you, John
>No problem. I found this WSH code somewhere on the internet in '06 and have found it to be very useful.
>
>*** wmi_systeminfo.prg
>* John Harvey
>* wsh code converted to VFP to capture system informstion
>* 9/30/2006
>*
>*
>CREATE CURSOR tsystem (name c(80),value c(80))
>
>wbemFlagReturnImmediately = 16
>wbemFlagForwardOnly = 32
>strComputer = "."
>
>objWMIService = GetObject("winmgmts:\\" + strComputer + "\root\CIMV2")
>colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL",wbemFlagReturnImmediately + wbemFlagForwardOnly)
> For Each objItem In colItems
>
> ?"BootDevice: " + trans(objItem.BootDevice)
> ?"BuildNumber: " + trans(objItem.BuildNumber)
> ?"BuildType: " + trans(objItem.BuildType)
> ?"Caption: " + trans(objItem.Caption)
> ?"CodeSet: " + trans(objItem.CodeSet)
> ?"CountryCode: " + trans(objItem.CountryCode)
> ?"CreationClassName: " + trans(objItem.CreationClassName)
> ?"CSCreationClassName: " + trans(objItem.CSCreationClassName)
> ?"CSDVersion: " + trans(objItem.CSDVersion)
> ?"CSName: " + trans(objItem.CSName)
> ?"CurrentTimeZone: " + trans(objItem.CurrentTimeZone)
> ?"DataExecutionPrevention_32BitApplications: " + trans(objItem.DataExecutionPrevention_32BitApplications)
> ?"DataExecutionPrevention_Available: " + trans(objItem.DataExecutionPrevention_Available)
> ?"DataExecutionPrevention_Drivers: " + trans(objItem.DataExecutionPrevention_Drivers)
> ?"DataExecutionPrevention_SupportPolicy: " + trans(objItem.DataExecutionPrevention_SupportPolicy)
> ?"Debug: " + trans(objItem.Debug)
> ?"Description: " + trans(objItem.Description)
> ?"Distributed: " + trans(objItem.Distributed)
> ?"EncryptionLevel: " + trans(objItem.EncryptionLevel)
> ?"ForegroundApplicationBoost: " + trans(objItem.ForegroundApplicationBoost)
> ?"FreePhysicalMemory: " + trans(objItem.FreePhysicalMemory)
> ?"FreeSpaceInPagingFiles: " + trans(objItem.FreeSpaceInPagingFiles)
> ?"FreeVirtualMemory: " + trans(objItem.FreeVirtualMemory)
> ?"InstallDate: " + WMIDateStringToDate(trans(objItem.InstallDate))
> ?"LargeSystemCache: " + trans(objItem.LargeSystemCache)
> ?"LastBootUpTime: " + WMIDateStringToDate(trans(objItem.LastBootUpTime))
> ?"LocalDateTime: " + WMIDateStringToDate(trans(objItem.LocalDateTime))
> ?"Locale: " + trans(objItem.Locale)
> ?"Manufacturer: " + trans(objItem.Manufacturer)
> ?"MaxNumberOfProcesses: " + trans(objItem.MaxNumberOfProcesses)
> ?"MaxProcessMemorySize: " + trans(objItem.MaxProcessMemorySize)
> ?"Name: " + trans(objItem.Name)
> ?"NumberOfLicensedUsers: " + trans(objItem.NumberOfLicensedUsers)
> ?"NumberOfProcesses: " + trans(objItem.NumberOfProcesses)
> ?"NumberOfUsers: " + trans(objItem.NumberOfUsers)
> ?"Organization: " + trans(objItem.Organization)
> ?"OSLanguage: " + trans(objItem.OSLanguage)
> ?"OSProductSuite: " + trans(objItem.OSProductSuite)
> ?"OSType: " + trans(objItem.OSType)
> ?"OtherTypeDescription: " + trans(objItem.OtherTypeDescription)
> ?"PlusProductID: " + trans(objItem.PlusProductID)
> ?"PlusVersionNumber: " + trans(objItem.PlusVersionNumber)
> ?"Primary: " + trans(objItem.Primary)
> ?"ProductType: " + trans(objItem.ProductType)
> ?"QuantumLength: " + trans(objItem.QuantumLength)
> ?"QuantumType: " + trans(objItem.QuantumType)
> ?"RegisteredUser: " + trans(objItem.RegisteredUser)
> ?"SerialNumber: " + trans(objItem.SerialNumber)
> ?"ServicePackMajorVersion: " + trans(objItem.ServicePackMajorVersion)
> ?"ServicePackMinorVersion: " + trans(objItem.ServicePackMinorVersion)
> ?"SizeStoredInPagingFiles: " + trans(objItem.SizeStoredInPagingFiles)
> ?"Status: " + trans(objItem.Status)
> ?"SuiteMask: " + trans(objItem.SuiteMask)
> ?"SystemDevice: " + trans(objItem.SystemDevice)
> ?"SystemDirectory: " + trans(objItem.SystemDirectory)
> ?"SystemDrive: " + trans(objItem.SystemDrive)
> ?"TotalSwapSpaceSize: " + trans(objItem.TotalSwapSpaceSize)
> ?"TotalVirtualMemorySize: " + trans(objItem.TotalVirtualMemorySize)
> ?"TotalVisibleMemorySize: " + trans(objItem.TotalVisibleMemorySize)
> ?"Version: " + trans(objItem.Version)
> ?"WindowsDirectory: " + trans(objItem.WindowsDirectory)
> Next
>
>Function WMIDateStringToDate(dtmDate)
> return substr(dtmDate, 5, 2) + "/" + substr(dtmDate, 7, 2) + "/" + Left(dtmDate, 4) + " " + substr(dtmDate, 9, 2)
>End Function
>
>
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
