Gestion d'ordinateur -- matériel d'ordinateur avec window scripting host

Commenter

Contenu du snippet

Le code requiert l'installation de Windows Scripting 5.X

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Mike Gagnon)