1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Imports Microsoft.Win32
Imports System.Management
Imports System
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'On déclare les variables
Dim sys As New ManagementObjectSearcher("Select * from Win32_Processor")
Dim infoProcesseur As ManagementObject
Dim req As New SelectQuery("Win32_bios")
Dim Syst As New ManagementObjectSearcher(req)
Dim Syste As New ManagementObjectSearcher("Select * from Win32_ComputerSystem")
Dim info As ManagementObject
Dim bios As ManagementObject
Dim req2 As New ManagementObjectSearcher("Select * from Win32_ComputerSystem")
Dim pcname As New ManagementObject
Dim req3 As New ManagementObjectSearcher("select * from Win32_OperatingSystem")
Dim os As New ManagementObject |
Partager