AutoIt Français

Code : Tout sélectionner

Func ListeUserlock()

If not FileExists("c:\CheckLockkedOut\Unlock.exe") then
    DirCopy("\\XXX11\Services\DSI\prod\Hotline\CheckLockkedOut\", "c:\CheckLockkedOut\")
endif

_FileCreate("c:\Locked.txt")
RunWait(@ComSpec & ' /c ' & 'c:\CheckLockkedOut\Unlock.exe XXX01 * -view > c:\Locked.txt', "", @SW_HIDE)

$nblignes = _FileCountLines("c:\Locked.txt")
dim $array[$nblignes + 1][3]
FileOpen("c:\Locked.txt", @SW_HIDE)
for $i = 1 to $nblignes
    $line = FileReadLine("c:\Locked.txt", $i)
    $user = Stringright(StringLeft( $line, 18), 15)
    $lock = StringLeft(StringRight( $line, 38), 19)
    $array[$i][0] = $user
    $array[$i][1] = $lock
$item1 = GUICtrlCreateListViewItem($user, $listuser)
$item2 = GUICtrlCreateListViewItem($lock, $listlocktime)
next
GUISetState(@SW_SHOW, $flock)
Fileclose("c:\Locked.txt")


FileDelete("c:\locked.txt")

EndFunc