Jump to content
Milas

gui function wonte delete files until gui closes

Recommended Posts

Milas

Hello,

     I am working on a GUI that will perform some reg query and wmic cmds for some of our tier 1 techs. everything so far works well except for my function to get mapped printers from a remote computer. I have the function outputting the list of printers to a text file in the temp folder. at the end of the function its suppose to delete the file and that is where my issue lies. The gui wont delete the file until the GUI itself closes. this is causing an issue where if I want to run the function again the gui shuts down on me.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <inet.au3>
#include <Constants.au3>
#RequireAdmin

#cs
    Program: Phone Tech utilitly tool
    Purpose: Assist phone techs and others with different wmic and reg query cmds to gain information from remote computers
    Creator: Salim C. Proctor
    Co-creator/Editor: John Ennis
    Date Created: 2 Feb 2016
    Last Edited: 16 Feb 2016
    Verion 1.0
#ce


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 627, 459, 192, 114)
$Tab1 = GUICtrlCreateTab(0, 0, 625, 457)

$TabSheet1 = GUICtrlCreateTabItem("Main")
$User = GUICtrlCreateButton("Who's Logged On", 8, 40, 147, 41)
$Host = GUICtrlCreateButton("Get Hostname", 8, 96, 147, 41)
$Acc = GUICtrlCreateButton("User Account Info", 440, 40, 139, 41)
$MAC = GUICtrlCreateButton("Get MAC Address", 8, 152, 147, 41)
$nPrinter = GUICtrlCreateButton("Mapped Printers", 8, 208, 147, 41)
$sUser = GUICtrlCreateInput("", 168, 48, 249, 21)
$sHost = GUICtrlCreateInput("", 168, 104, 249, 21)
$IP = GUICtrlCreateInput("Enter IP/Hostname", 8, 424, 161, 21)
$plist = GUICtrlCreateEdit("", 168, 208, 249, 162)
$sMAC = GUICtrlCreateInput("", 168, 160, 249, 21)
$Ping = GUICtrlCreateButton("Ping", 208, 408, 163, 41)
$mDrive = GUICtrlCreateButton("Remote C$", 440, 408, 147, 41)

$TabSheet2 = GUICtrlCreateTabItem("Program Version")
$search = GUICtrlCreateButton("Search", 8, 32, 147, 41)
$program = GUICtrlCreateInput("Enter Program Name", 176, 40, 321, 21)
$prog_list = GUICtrlCreateEdit("", 8, 96, 609, 318)

GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $User
            remote_user()
        Case $Host
            remote_host()
        Case $MAC
            remote_Mac()
        Case $search
            remote_program()
        Case $Ping
            ping_customer()
        Case $mDrive
            map_drive()
        Case $nPrinter
            get_printers()
        Case $Acc
            Account()
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Func remote_user()
    $pid = Run(@ComSpec & " /c wmic /node:" & GUICtrlRead($IP) & " computersystem get username", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    Local $line
    While 1
        $line &= StdoutRead($pid)
        If @error Then ExitLoop

    WEnd
    While 1
        $line &= StderrRead($pid)
        If @error Then ExitLoop

    WEnd
    $split = StringSplit($line, @CRLF)
    GUICtrlSetData($sUser, $split[4])

EndFunc   ;==>remote_user

Func remote_host()
    $pid = Run(@ComSpec & " /c wmic /node:" & GUICtrlRead($IP) & " computersystem get name", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    Local $line
    While 1
        $line &= StdoutRead($pid)
        If @error Then ExitLoop
    WEnd
    While 1
        $line &= StderrRead($pid)
        If @error Then ExitLoop
    WEnd
    $split = StringSplit($line, @CRLF)
    GUICtrlSetData($sHost, $split[4])

EndFunc   ;==>remote_host

Func remote_Mac()
    $pid = Run(@ComSpec & " /c getmac /nh /s " & GUICtrlRead($IP), @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    Local $line
    While 1
        $line &= StdoutRead($pid)
        If @error Then ExitLoop

    WEnd
    While 1
        $line &= StderrRead($pid)
        If @error Then ExitLoop

    WEnd
    $split = StringSplit($line, @CRLF)
    $2ndSplit = StringSplit($split[3], "\")

    GUICtrlSetData($sMAC, $2ndSplit[1])



EndFunc   ;==>remote_Mac

Func remote_program()

    Local $fProgram, $nkey, $1position[33], $2position[33]
    Local $pid, $line1[33], $line, $array_size
    GUICtrlSetData($prog_list, "")
    GUICtrlSetState($search, $gui_disable)
    $fProgram = GUICtrlRead($program)
    $pid = Run(@ComSpec & ' /c reg query \\' & GUICtrlRead($IP) & '\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall /s /f ' & $fProgram & ' /d| findstr "{"', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)


    While 1
        $line &= StdoutRead($pid)
        If @error Then ExitLoop
    WEnd
    While 1
        $line &= StderrRead($pid)
        If @error Then ExitLoop
    WEnd

    $nkey = StringSplit($line, @CRLF & @CRLF)
    $array_size = UBound($nkey)
    ReDim $1position[$array_size]
    ReDim $line1[$array_size]


    For $i = 1 To $array_size - 1
        $1position[$i] = StringLen($nkey[$i])

        If $1position[$i] < 132 Then
            $pid = Run(@ComSpec & ' /c reg query \\' & GUICtrlRead($IP) & '\' & $nkey[$i] & '| findstr /i "displayname displayversion"', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)


            While 1
                $line1[$i] &= StdoutRead($pid)

                If @error Then ExitLoop
            WEnd

            GUICtrlSetData($prog_list, $line1[$i] & @CRLF & "~", "~")

        EndIf

        $i = $i + 1

    Next

    GUICtrlSetState($search, $gui_enable)
EndFunc   ;==>remote_program

Func ping_customer()
    Local $error

    If GUICtrlRead($IP) <> "" Then
        $pError = RunWait("ping.exe -n 1 " & GUICtrlRead($IP), "", @SW_HIDE)

        Switch $pError
            Case 0
                MsgBox(0, "Successfull", "Operation was a success!")
            Case 1
                MsgBox(48, "ERROR CODE: 001", "Host/IP is not reachable")
        EndSwitch
    Else
        MsgBox(48, "ERROR CODE: 005", "No input detected")
    EndIf
EndFunc   ;==>ping_customer

Func map_drive()
    ShellExecute("C:\Users\Salim.Proctor\Desktop\GUI\john project\c$ remote.exe")
EndFunc   ;==>map_drive

Func get_printers()
    Local $pid, $sid, $sid2, $hfileopen, $sfileread, $line, $exit, $ip45, $user45

    ;disables map printer button in gui
    GUICtrlSetState($nPrinter, $gui_disable)

    ;clears any previous data in the printer edit box
    GUICtrlSetData($plist, " ")
    
    ;reads ip address user entered
    $ip45 = GUICtrlRead($IP)
    
    ;reads the user name from the sUser input box
    $x = GUICtrlRead($sUser)
    
    ;splits the data to remove domainname\
    $y = StringSplit($x, "\")
    
    ;removes a space value from the data
    $user45 = StringSplit($y[2], " ")

    ;queries the remote users registry to find thier sid
    $pid = Run(@ComSpec & ' /c reg query "\\' & $ip45 & '\hklm\software\microsoft\windows nt\currentversion\profilelist" /s /f "' & $user45[1] & '"', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    ;reads the standard ouput from the reg query
    While 1
        $line &= StdoutRead($pid)
        If @error Then ExitLoop
    WEnd
    While 1
        $line &= StderrRead($pid)
        If @error Then ExitLoop
    WEnd
    ;string splits to remove all unneeded data and get only the sid
    $sid = StringSplit($line, "\")
    $sid2 = StringSplit($sid[7], @CRLF)

    ;queries the remote users registry using the newly obtained sid and writes it out to a text file
    $pid = Run(@ComSpec & ' /c reg query \\' & $ip45 & '\hkey_users\' & $sid2[1] & '\Printers\Connections > c:\temp\printer_list.txt', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    ;pause program to give it time to create the file
    Sleep(1000)

    ;opens the file so that it can be read
    If FileExists("c:\temp\printer_list.txt") Then
        FileWriteLine("c:\temp\printer_list.txt", "1\2\3\4\end of list")
        $hfileopen = FileOpen("c:\temp\printer_list.txt")
    EndIf

    $exit = " "
    $i = 2

    ;output the data into the gui until it reaches the end of the list
    Do
        $exit = FileReadLine("c:\temp\printer_list.txt", $i)
        $printer_string = StringSplit($exit, "\")
        GUICtrlSetData($plist, $printer_string[5] & @CRLF & "~", "~")
        $i = $i + 1

    Until $exit = "1\2\3\4\end of list"

    ;reeneables the gui map printer button
    GUICtrlSetState($nPrinter, $gui_enable)

    ;delete the text file that is created by the command line
    If FileExists("c:\temp\printer_list.txt") Then
        FileClose("c:\temp\printer_list.txt")
        FileDelete("c:\temp\printer_list.txt")

    EndIf

EndFunc   ;==>get_printers

Func Account()
    Local $line
    $split = StringSplit(GUICtrlRead($sUser), "\")

    $pid = Run(@ComSpec & " /c net user " & $split[2] & " /domain", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    While 1
        $line &= StdoutRead($pid)
        If @error Then ExitLoop

    WEnd

    While 1
        $line &= StderrRead($pid)
        If @error Then ExitLoop

    WEnd
    MsgBox(0, "STDOUT read:", $line)
EndFunc   ;==>Account

just to reiterate the function im having issue with is func get_printers

Share this post


Link to post
Share on other sites
AutoBert

Line 247, FileOpen is blocking the deletion, and handle is never used.

  • Like 1

Share this post


Link to post
Share on other sites
Milas

autoBert

it is just as you said. thank you! I cant believe I didn't see that.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • Reziskonh
      By Reziskonh
      Hi, everybody
      I look for GUI whose behavior similar to the message of an email client or antivirus
      In other words:
          Any PC screen able to calculate the size
          To consider the Task bar size
          To find the lower corner on the right/below and to nestle on it

      Notes:
      In GUI the GUICtrlCreateEdit field (as option) - that can be received and displayed through variable information
      Thanks a lot
      PS
      I use the translator, excuse if something is not clear
       

    • VollachR
      By VollachR
      Hi,
      I'd like to show a progress bar for an operation performed by an external program my script is running silently, I want to show it in a GUI I created using the GUICtrlCreateProgress but I have no idea how to do it.
      The important thing to point out is that there's no way of knowing how long the external program will run, as it is a file splitter and it depends on the size of file it splits and the split parts size.
      Can someone point me in the right direction or give me an example how to do so?
      This is my RunWait command:
      RunWait($MYFILES1 & '\fsplit.exe -split ' & $Size & ' mb ' & $File & " -f " & $File & "." & $extension) It uses multiple variables declared and set earlier in the script, how will I got about having the progress of that command shown using GUICtrlCreateProgress ? Is it possible?
      Thank you.
    • nacerbaaziz
      By nacerbaaziz
      Hello my friends
      I have an inquiry and I hope to find the answer here
      I want to create a graphical user interface
      but I want to hide the system menu
      I mean the window menu
      Is this possible?
      If is possible please give me how to do that
      Thanks in advance
    • helmar
      By helmar
      I was playing around with simple GUI creation.  I tend to like parameter driven coding (in prior life (years ago) as Clipper/FoxPro/dBase coder).  Just wanted to see what I could do with a GUI.
      #Region options, includes Opt('MustDeclareVars', 1) Opt("GUIOnEventMode", 1) ; Change to OnEvent mode #include <GUIConstantsEx.au3> #EndRegion options, includes Global Const $nCols = 2, $nRows = 6, $nSpacer = 10, $nBtnWidth = 150, $nBtnHeight = 30 Global $xName = 0, $xID = 0 Global $nGUIWidth = ($nCols * $nBtnWidth) + (($nCols + 1) * $nSpacer) Global $nGUIHeight = ($nRows * $nBtnHeight) + (($nRows + 1) * $nSpacer) Global $hMainGUI = GUICreate("Calculated GUI", $nGUIWidth, $nGUIHeight, -1, -1) For $xRows = 1 to $nRows ;in this arrangement, tabbing is left to right, then next row For $xCols = 1 to $nCols ;reverse the order of this line with the prior line for top to bottom tabbing, then next col $xName += 1 $xID += 1 Global $Dummy = GUICtrlCreateButton("Button" & $xName, _ ($nBtnWidth * ($xCols - 1)) + (($xCols - 1) * $nSpacer) + $nSpacer, _ ($nBtnHeight* ($xRows - 1)) + (($xRows - 1) * $nSpacer) + $nSpacer, _ $nBtnWidth, _ $nBtnHeight) GUICtrlSetOnEvent($xID+2, "Handler") Next Next GUISetOnEvent($GUI_EVENT_CLOSE, "CloseApp") GUISetState(@SW_SHOW) While 1 Sleep(10) WEnd Func CloseApp() Exit EndFunc Func Handler() MsgBox(0,0,"Button " & @GUI_CtrlId - 2) EndFunc  
    • XinYoung
      By XinYoung
      For fun, I'm building an app that opens a webpage and refreshes it every 30 seconds.
      But once the script performs _IEAction($oIE, "refresh"), the GUI closes.
      Any help is appreciated.
       

      #include <ButtonConstants.au3>
      #include <EditConstants.au3>
      #include <GUIConstantsEx.au3>
      #include <StaticConstants.au3>
      #include <WindowsConstants.au3>
      #include <WinAPIFiles.au3>
      #include <Array.au3>
      #include <File.au3>
      #include <Excel.au3>
      #include <DateTimeConstants.au3>
      #include <MsgBoxConstants.au3>
      #include <WinAPIShellEx.au3>
      #include <MsgBoxConstants.au3>
      #include <Date.au3>
      #include <ComboConstants.au3>
      #include <guimenu.au3>
      #include <IE.au3>
      HotKeySet("{F4}", "_Exit")
      ;Open the file(s) in the selected folder
      $extension = ".txt"
      $app2openWith = @SystemDir & "\notepad.exe"
      Func Begin()
          Global $loopTrick = 0
          #Region ### START Koda GUI section ### Form=c:\users\mchu\downloads\autoit\my code\form1.kxf
          Global $UI = GUICreate("Hit Em Up!", 256, 113, -1, -1)
          GUISetBkColor(0x000000)
          $menu = _GUICtrlMenu_GetSystemMenu($UI)
          _GUICtrlMenu_EnableMenuItem($menu, $SC_CLOSE, 1, False)
          Global $url = GUICtrlCreateInput("https://www.youtube.com/watch?v=dQw4w9WgXcQ", 81, 8, 160, 21)
          $Label1 = GUICtrlCreateLabel("Target:", 16, 8, 55, 17)
          GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
          GUICtrlSetColor(-1, 0x00FF00)
          Global $StartBut = GUICtrlCreateButton("Start", 16, 40, 67, 25)
          GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
          GUICtrlSetBkColor(-1, 0x008000)
          $Label2 = GUICtrlCreateLabel("(Press F4 to Exit)", 96, 40, 8000, 17)
          GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
          GUICtrlSetColor(-1, 0x00FF00)
          GUISetState(@SW_SHOW)
          #EndRegion ### END Koda GUI section ###
          While 1
              $UIfunc = GUIGetMsg()
              Select
                  Case $UIfunc = $GUI_EVENT_CLOSE
                      _Exit()
                  Case $UIfunc = $StartBut
                      If GUICtrlRead($url) = "" Then
                          MsgBox(48, "Um...", "Give me a target you idiot.")
                      Else
                          GUICtrlSetState($url, $GUI_DISABLE)
                          GUICtrlSetState($StartBut, $GUI_DISABLE)
                          Start()
                      EndIf
              EndSelect
          WEnd
      EndFunc   ;==>Begin
      Func Start()
          If $loopTrick = 0 Then
              Global $oIE = _IECreate(GUICtrlRead($url))
              _IELoadWait($oIE)
              Again()
          ElseIf $loopTrick = 1 Then
              Sleep(3000)
              _IEAction($oIE, "refresh")
              Sleep(3000)
              Start()
          EndIf
      EndFunc   ;==>Start
      Func Again()
          $loopTrick = 1
          Start()
      EndFunc   ;==>Again
      Func _Exit()
          Exit
      EndFunc   ;==>_Exit
×