Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=serie.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$version = "07/06/2014"
Global $strComputer, $objWMIService, $colItems, $j, $serialhd
$strComputer = StringLower(@ComputerName)
If @error = 1 Then Exit
$colItems = ""
;~ $strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
If $objWMIService = "" Then
MsgBox(0, "WMI Error", "WMI not running on " & $strComputer & ".")
Exit
EndIf
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
If IsObj($colItems) Then
For $objItem In $colItems
$modelpc = StringStripWS($objItem.Name, 3)
$serialpc = StringStripWS($objItem.IdentifyingNumber, 3)
$marquepc = StringStripWS($objItem.Vendor, 3)
Next
EndIf
Global $Form1 = GUICreate("Numéro de série", 600, 303, 192, 130)
GUISetBkColor(0x00FFFF)
Global $inp_nomduposte = GUICtrlCreateInput("", 128, 48, 153, 21, $GUI_SS_DEFAULT_INPUT)
Global $Inp_marque_pc = GUICtrlCreateInput("", 128, 112, 153, 21, $GUI_SS_DEFAULT_INPUT)
Global $inp_numserie_pc = GUICtrlCreateInput("", 128, 160, 153, 21, $GUI_SS_DEFAULT_INPUT)
Global $inp_utilisateur = GUICtrlCreateInput("", 128, 72, 153, 21, $GUI_SS_DEFAULT_INPUT)
Global $Inp_model_pc = GUICtrlCreateInput("", 128, 136, 153, 21, $GUI_SS_DEFAULT_INPUT)
Global $label1 = GUICtrlCreateLabel("Nom du poste", 16, 48, 100, 20, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Utilisateur", 16, 72, 74, 20, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Label3 = GUICtrlCreateLabel("Marque PC", 16, 112, 80, 20, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Label4 = GUICtrlCreateLabel("Modèle PC", 16, 136, 80, 20, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
Global $Label5 = GUICtrlCreateLabel("N° de Série PC", 16, 160, 107, 20, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $Label8 = GUICtrlCreateLabel("Version: " & $version, 16, 16, 150, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetData($inp_nomduposte, @ComputerName)
GUICtrlSetData($inp_utilisateur, @UserName)
GUICtrlSetData($Inp_marque_pc, $marquepc)
GUICtrlSetData($Inp_model_pc, $modelpc)
GUICtrlSetData($inp_numserie_pc, $serialpc)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
