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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 468 fois - Téléchargée 32 fois

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

Ajouter un commentaire Commentaires
Mike Gagnon Messages postés 381 Date d'inscription vendredi 15 octobre 2004 Statut Membre Dernière intervention 24 octobre 2013 2
10 mai 2006 à 18:06
Je ne comprends exactement ce que tu veux. Le code ci-haut t montre comment faire, mais il y a vraiment pas assez de place pour mettre tout ce que tu peux faire avec WMI et Windows sripting.Mais le site de Microsoft a plusiuers exemples (Pas de code VFP- besoin de traduction
http://www.microsoft.com/technet/scriptcenter/learnit.mspx
CHARFEDDINE1205 Messages postés 15 Date d'inscription mardi 11 avril 2006 Statut Membre Dernière intervention 8 mai 2006
10 mai 2006 à 14:30
salut,
SVP expliquer moi comment récuperer les caractéristiques (informations systeme)d'un ordinateur (disque dur,carte mère,carte réseau ...
Mike Gagnon Messages postés 381 Date d'inscription vendredi 15 octobre 2004 Statut Membre Dernière intervention 24 octobre 2013 2
8 mai 2006 à 17:24
Il n'a pas d'executable. Ces exemples peuvent etre utilisé dans n'importe quel application, incluant la votre.
CHARFEDDINE1205 Messages postés 15 Date d'inscription mardi 11 avril 2006 Statut Membre Dernière intervention 8 mai 2006
8 mai 2006 à 15:57
Pouvez vous m'envoyer l'executable de cette application
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)