Sign in to follow this  
Followers 0

Multiple Dos Commands

1 post in this topic

The Code below is the complete code for what I am working on. I put it in for general tidying because I am still a novice and tips in general are welcome.

First the primary issue. A client uses a remote connection string to 'wrap' oracle programs so that all environmental variable are loaded in to memory and then dumped at the completion of a program. This file is remote (as in on a server elsewhere) and can be changed by the oracle Admins at any time. Most programs that need oracle are then Wrapped in a *.CMD file that loads the variables needed and then executes the program at the end (Start, foo, "Program Name").

My issue is this. I am protecting a single execution of the program with a password (simple protection). If the correct password is given the connection to the Oracle environment is established, else the program will not work. Simply executing the program will cause a failure because the Oracle environment will not be loaded. So I wanted to use an Auto-It script to prompt for the password and if the proper password is given execute the command information needed. I don't want to just execute an existing CMD file because the user could simply execute that file and run the program, bypassing auto-it completely. Technically a user could still manually try to set up an oracle environment, but that is not likely.

However, it seemed multiple uses of the Run command against various executions causes Auto-it to only temporarily write those values to memory (this was expected I just hoped it would not be the case) instead of holding the data until the completion of the script. It is for that reason at the end of the script the final function calls a command window, hides it, and sends all the needed commands to that window. This method works; however I would prefer a cleaner way of doing this. If anyone has any ideas or suggestions as to how to load this in to a single memory block that is executed with all variables set please let me know.

Keep in mind because of the location and changes of the command wrapper piece I can not simply copy it's functionality. The file is dynamically changing so I can only call the file.

-Any Ideas?

#include<Function_List.AU3>  ;Include for Function_List is functions that I parsed to bottom of script.



$tLog = "C:\Program Files\ISI\ISIPublisher\Logs\PassFail.txt"
$setting = "123456a"
$pISI = ('{ASC 034}C{ASC 058}\Program Files\ISI\ISIPublisher\ISIPublisherAdmin.exe{ASC 034}{ENTER}')
$pWORA = Client Sensitive (path to CMD file to set Oracle settings)
$pSet = Client Sensitive (sets oracle home)

$pImage = ("C:\Program Files\ISI\ISIPublisher\images\ISIPublisher.JPG")

$pISIPath = (@ProgramFilesDir & "\ISI\ISIPublisher")
$gWinText = ("Admin Password")
$gPrompt = ("Please Enter the Admin Password for ISIPublisher Admin")


;Gui Setup
GuiSetIcon($pISIPath & "\ISIPublisherAdmin.exe",0)


;Menu Setup
GuiCtrlCreateMenu("&Info"); Currently awaiting User Specs.


;Label Setup
GuiCtrlCreateLabel(">Please enter the Admin password for the Application ISIPublisher Admin<", 5, 5,400)


;Edit Box
$iPassInput = GuiCtrlCreateInput("", 50, 20,250,20,$ES_CENTER+$ES_PASSWORD)


$bDone = GuiCtrlCreateButton("Done", 50, 50, 50, 25, $BS_DEFPUSHBUTTON)
$bCancel = GuiCtrlCreateButton("Cancel", 250, 50, 50, 25)


;Set State


While 1
 $msg = GUIGetMsg()
  Case $msg = $bDone
   $sIPass = GUICtrlRead($iPassInput)
    Case $sIpass = ""
     msgbox(48,"Empty Password","Password can not be left blank," & @CRLF & "please input a password and try again.")
    case $sIpass = $setting
     SplashImageOn("ISI Admin Start", $pImage)
     winwait("ISIPublisher - Ad","")
    case $sIpass <> $setting & $sIpass <> ""
     _logging($tLog, "Invalid Connection: " & @Mon & "/" & @MDAY & "/" & @YEAR & " ---ID--- " & _
     msgbox(48,"Invalid Login","Invalid Login!" & @CRLF & "Please see your local representive regarding the ISI Publisher Admin password.")
  Case $msg = $bCancel
   msgbox(0,"Canceled","Execution canceled")
 If $msg = $GUI_EVENT_CLOSE Then ExitLoop

;Primary Issue Below this Line!
Func _ISIExecute()
 Runwait(@ComSpec & ' /c Start "foo"',@SystemDir, @SW_HIDE)

;End Primary Issue


func _Logging($Log, $Comment)
 FileOpen($Log, 1)
 FileWriteLine($Log, $Comment & @CRLF)

As an aside I notice that there was no normal way to send shift characters to a dos window. I tried {shiftdown};{shiftup} to get a : and I tried +; and even changed to mode 1 and used : itself. The only way I found to get it was to call the ASC character, again if there is a more efficient method I am all eyes.

"I have discovered that all human evil comes from this, man's being unable to sit still in a room. " - Blaise Pascal

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
Sign in to follow this  
Followers 0