AutoIt Français

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

Code : Tout sélectionner

#include <MsgBoxConstants.au3>
MsgBox(0,"LogonDomain",@LogonDomain)
MsgBox(0,"ComputerName",@ComputerName)
MsgBox(0,"OSVersion",@OSVersion)



Local $aArray = DriveGetDrive("ALL")
If @error Then
    ; An error occurred when retrieving the drives.
    MsgBox($MB_SYSTEMMODAL, "", "It appears an error occurred.")
Else
    For $i = 1 To $aArray[0]
        ; Show all the drives found and convert the drive letter to uppercase.
        MsgBox($MB_SYSTEMMODAL, "", "Drive " & $i & "/" & $aArray[0] & ":" & @CRLF & StringUpper($aArray[$i]))
    Next
EndIf