[Talk] My first pathetic attempt with NUI

[Shirley Hammack]

This is the code I am looking at for a primitive attempt at a script with NUI.  
Please don't laugh.  Just guide me.

Sub CheckBatches()
        Dim ShellCheck As Double

        ShellCheck = Shell("c:\bss70\meditechnuiserver.exe", 4)
        Connect "C:\Program Files\MEDITECH\Workstation4.x\t.exe", stStream
        Stable 1.5
        'Pause "<Return> to continue"
        Enter ""
        Stable 0.5
        'Pause "MIS Directories"
        Enter "1"
        Stable 0.5
        'Pause "Sign On"
        Enter "shirley"
        Stable 0.5
        'Pause "    Password    "
        Enter "mypassword"
        Stable 0.5
        'Pause "    Select  "
        Enter "4"
        Stable 0.5
        'Pause "                                          Select  "
        Enter "20"
        Stable 0.5
        Enter "12"
        Stable 0.5
        'Pause "Batch Date On/Before  "
        Enter "T"
        Stable 0.5
        'Pause "Print [EMAIL PROTECTED],1"
        Enter "S"
End Sub

I do actually get the workstation window up but I don't think it is retaining 
focus.  What do you advise.
My batteries are pretty drained at this point!

Shirley Hammack
IS Financial Analyst
Jackson County Memorial Hospital
580-482-4781 ext 2554


The documents accompanying this transmission contain confidential information, 
belonging to the sender, that is legally privileged.  This information is 
intended only for the use of the individual or entity named above.  The 
authorized recipient of this information is prohibited from disclosing this 
information after its stated need has been fulfilled.

If you are not the intended recipient, you are hereby notified that any 
reading, disclosure, copying, distribution, or action taken in reliance on the 
contents of these documents is strictly prohibited.  Violators may be 
prosecuted.  If you have received this email in error, please notify the sender 
immediately and destroy the transmitted information.