1. Determiner le type d'architecture d'ordinateur.
lcComputer = "."
clear
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
loProcessor = loWMIService.Get("win32_Processor='CPU0'")
DO case
CASE loProcessor.Architecture = 0
?"Ordinateur avec architecture x86."
CASE loProcessor.Architecture = 1
?"Ordinateur avec architecture MIPS."
CASE loProcessor.Architecture = 2
?"Ordinateur avec architecture Alpha."
case loProcessor.Architecture = 3
?"Ordinateur avec architecture PowerPC."
case loProcessor.Architecture = 6
?"Ordinateur avec architecture ia64 ."
otherwise
? "Type d'architecture non défini."
ENDCASE
2. Recherche de la configuration de contrôleur d'affichage
On Error *
lcComputer = "."
clear
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery ;
("Select * from Win32_DisplayControllerConfiguration")
For Each loItem in colItems
?"Bits Per Pixel: " + TRANSFORM(loItem.BitsPerPixel)
?"Color Planes: " + TRANSFORM(loItem.ColorPlanes)
?"Device Entries in a ColorTable: " + ;
TRANSFORM(loItem.DeviceEntriesInAColorTable)
?"Device Specific Pens: " + TRANSFORM(loItem.DeviceSpecificPens)
?"Horizontal Resolution: " + TRANSFORM(loItem.HorizontalResolution)
?"Name: " + loItem.Name
?"Refresh Rate: " + TRANSFORM(loItem.RefreshRate)
?"Setting ID: " + TRANSFORM(loItem.SettingID)
?"Vertical Resolution: " + TRANSFORM(loItem.VerticalResolution)
?"Video Mode: " + loItem.VideoMode
?
Next
3. Énumération Des Blocs de mémoires
On Error *
clear
lcComputer = "."
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_MemoryDevice")
For Each loItem in colItems
?"Device ID: " + loItem.DeviceID
?"Ending Address: " + loItem.EndingAddress
?"Starting Address: " + loItem.StartingAddress
?
Next
4. Identifier le type de souris.
lcComputer = "."
loWMIService = Getobject("winmgmts:" ;
+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
colMice = loWMIService.ExecQuery ;
("Select * from Win32_PointingDevice")
For Each loMouse In colMice
?"Hardware Type: " + loMouse.HardwareType
?"Number of Buttons: " + Transform(loMouse.NumberOfButtons)
?"Status: " + loMouse.Status
?"PNP Device ID: " + loMouse.PNPDeviceID
Next
5. Énumérer les proprités des BUS d'ordinateur.
On Error *
lcComputer = "."
CLEAR
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_Bus")
For Each loItem in colItems
?"Bus Number: " + TRANSFORM(loItem.BusNum)
?"Bus Type: " + TRANSFORM(loItem.BusType)
?"Description: " + loItem.Description
?"Device ID: " + TRANSFORM(loItem.DeviceID)
?"Name: " + loItem.Name
?"PNP Device ID: " + TRANSFORM(loItem.PNPDeviceID)
?
Next
6. Énumérer les propriétés d'un clavier
On Error *
lcComputer = "."
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_Keyboard")
For Each loItem In colItems
?"Caption: " + loItem.Caption
?"Description: " + loItem.Description
?"Device ID: " + loItem.DeviceID
?"Is Locked: " + loItem.IsLocked
?"Layout: " + loItem.Layout
?"Name: " + loItem.Name
?"Number of Function Keys: " + Transform(loItem.NumberOfFunctionKeys)
?"Password: " + Iif(Isnull(loItem.Password,'',loItem.Password)
?"PNP Device ID: " + loItem.PNPDeviceID
Next
7. Énumérer les propriétés de la Carte mère
On Error *
lcComputer = "."
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_MotherboardDevice")
For Each loItem In colItems
?"Device ID: " + loItem.DeviceID
?"Primary Bus Type: " + loItem.PrimaryBusType
?"Secondary Bus Type: " + loItem.SecondaryBusType
?
Next
8. Énumération Des Propriétés des ports Parallèles
On Error *
lcComputer = "."
Clear
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_ParallelPort",,48)
Set Step On
For Each loItem In colItems
?"Availability: " + Transform(loItem.Availability)
?"Description: " + loItem.Description
?"Device ID: " + loItem.DeviceID
?"Name: " + loItem.Name
?"OS Auto Discovered: " + Transform(loItem.OSAutoDiscovered)
?"PNP Device ID: " + loItem.PNPDeviceID
?"Protocol Supported: " + Transform(loItem.ProtocolSupported)
Next
9. Énumération de la configuration de mémoire physique
On Error *
lcComputer = "."
Clear
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
Set Step On
For Each loItem In colItems
?"Bank Label: " + loItem.BankLabel
?"Capacity: " + loItem.Capacity
?"Data Width: " + Transform(loItem.DataWidth)
?"Description: " + loItem.Description
?"Device Locator: " + loItem.DeviceLocator
?"Form Factor: " + Transform(loItem.FormFactor)
?"Hot Swappable: " + loItem.HotSwappable
?"Manufacturer: " + loItem.Manufacturer
?"Memory Type: " + Transform(loItem.MemoryType)
?"Name: " + loItem.Name
?"Part Number: " + loItem.PartNumber
?"Position In Row: " + Transform(loItem.PositionInRow)
?"Speed: " + loItem.Speed
?"Tag: " + loItem.Tag
?"Type Detail: " + Transf(loItem.TypeDetail)
Next
10. Énumérer le propriétés du CPU
On Error *
lcComputer = "."
CLEAR
SET STEP ON
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_Processor")
For Each loItem in colItems
?"Address Width: " + TRANSFORM(loItem.AddressWidth)
?"Architecture: " + TRANSFORM(loItem.Architecture)
?"Availability: " + TRANSFORM(loItem.Availability)
?"CPU Status: " + TRANSFORM(loItem.CpuStatus)
?"Current Clock Speed: " + TRANSFORM(loItem.CurrentClockSpeed)
?"Data Width: " + TRANSFORM(loItem.DataWidth)
?"Description: " + loItem.Description
?"Device ID: " + loItem.DeviceID
?"Ext Clock: " + TRANSFORM(loItem.ExtClock)
?"Family: " + TRANSFORM(loItem.Family)
?"L2 Cache Size: " + TRANSFORM(loItem.L2CacheSize)
?"L2 Cache Speed: " + TRANSFORM(loItem.L2CacheSpeed)
?"Level: " + TRANSFORM(loItem.Level)
?"Load Percentage: " + TRANSFORM(loItem.LoadPercentage)
?"Manufacturer: " + loItem.Manufacturer
?"Maximum Clock Speed: " + TRANSFORM(loItem.MaxClockSpeed)
?"Name: " + loItem.Name
?"PNP Device ID: " + loItem.PNPDeviceID
?"Processor Id: " + loItem.ProcessorId
?"Processor Type: " + TRANSFORM(loItem.ProcessorType)
?"Revision: " + TRANSFORM(loItem.Revision)
?"Role: " + transf(loItem.Role)
?"Socket Designation: " + transf(loItem.SocketDesignation)
?"Status Information: " + transf(loItem.StatusInfo)
?"Stepping: " + transf(loItem.Stepping)
?"Unique Id: " + transf(loItem.UniqueId)
?"Upgrade Method: " + transf(loItem.UpgradeMethod)
?"Version: " + transf(loItem.Version)
?"Voltage Caps: " + transf(loItem.VoltageCaps)
Next