SetConsole('HIDE')
; Declaring variables	; ## YEAH?? So really declare them!!
;
Dim $PZB 		; defines what PZB path will be set within CER.ini
Dim $CER 		; defines where our user's CER.ini file is saved too, and looked for
Dim $PFX 		; defines the value for PFX for claimsview
Dim $MENU		; defines the value for Menu for Claimsview
Dim $Rc			; Return code catcher
Dim $Path		; path string
Dim $Message		; message header
Dim $MaxSess		; maximum number of allowed sessions
Dim $TaskList		; command to return list of user tasks
Dim $aResult		; array containing STDOUT and STDERR arrays


; ## Get the idea? Declare the rest of the variables, too!
; ## Be consistent with Var Names.  I prefer MixedCase for local vars, CAPS for globals and @-Macros
; ## Consistent use of commands improves readability - "WriteProfileString" is easier to recognize than "writeprofilestring"
; ## Not required, but use single quotes for Kix strings so double quotes can easily be embedded. Many
; ## DOS commands require double quotes

; ## Embedding vars and macros in strings is bad - use the form 'text ' + $Var + ' more text ' + @MACRO instead
$Rc = SetOption('NoVarsInString', 'On')
$Rc = SetOption('NoMacrosInString', 'On')

; ## init all vars here
$pzb     = '\\root\Production$$'
$cer     = '\\root\userconfigs$$\@userid\Production'
$pfx     = '0001'
$Menu    = 'Y'
$MaxSess = 2
;
;
$Message = '	     You are not allowed to run more than two copies of OurApp.	     '


; ## LOAD THE REQUIRED UDF (or paste it to the end of this file, which is more portable)
; ## if you embed the UDF, delete the next line or you will have a duplicate UDF error
Call '.\WshPipe.udf'



; Checking for Cer.ini, copying it if it's not there.
;

$Path = '\\root\userconfigs$\' + @USERID	; ## NO VARS/MACROS INSIDE STRINGS

IF NOT Exist ($Path)
  MD $Path
EndIf
;

IF NOT Exist ($cer + '\cer.ini')
  MD $cer					; ## NO QUOTES AROUND VARS
  Copy '\\root\' + cer$ + '\cer.ini' $cer
  WriteProfileString($cer + '\cer.ini', 'System', 'PzbPath', $pzb)
EndIf

;
WriteProfileString($cer + '\cer.ini', 'CLAIMVIEW', 'PFX', $pfx)
WriteProfileString($cer + '\cer.ini', 'ClAIMVIEW', 'MENU', 'menu')
;
;
$Tasklist='tasklist /FI "Username eq %USERDOMAIN%\%USERID%" /FI "Imagename eq App.exe"'
$aResult=WshPipe($Tasklist)
;
If UBound($aResult[0]) < ($MaxSess +1)
  Run 'C:\appname\app\app.exe ' + $cer + '\cer.ini'
Else
  MessageBox('$Message','   ***You are not allowed to run more than two App sessions***   ',0,10)
EndIf
;

; ## Specify the exit code - leave nothing to chance
Exit 0

IF UBound($aResult) < ($MaxSess + 1)

Break On

Dim $MaxSess, $TaskList, $aResult, $Message, $Rc, $

$Message ='PROCSS LIMIT EXCEPTION'
$MaxSess = 4

$Tasklist='tasklist /FI "Username eq %USERDOMAIN%\%USERNAME%" /FI "Imagename eq cmd.exe"'
'Running ' $Tasklist ?
$aResult=WshPipe($Tasklist)
UBound($aResult[0]) -1 ' processes' ?
For $ = 0 to UBound($aResult[0])
  $ ' ' $aResult[0][$] ?
Next
;
If UBound($aResult[0]) < ($MaxSess + 1)
  Run '%COMSPEC%'
Else
  $Rc = MessageBox('You are not allowed to run more than two App sessions',$Message,0,10)
EndIf

TECHSERV14 - K:\Misc>limit
Running tasklist /FI "Username eq DOMAIN\userid" /FI "Imagename eq cmd.exe"
4 processes
0
1 Image Name                     PID Session Name        Session#    Mem Usage
2 ========================= ======== ================ =========== ============
3 cmd.exe                       2976 RDP-Tcp#0                  2      4,376 K
4 cmd.exe                       5976 RDP-Tcp#0                  2      5,476 K
5

If UBound($aResult[0]) < ($MaxSess + 3)

$cer = '\\root\userconfigs$$\@userid\production'

$cer = '\\root\userconfigs$$\' + @userid + '\production'

SetConsole('HIDE')
; Declaring Global variables
;
Dim $PZB		; defines what PZB path will be set within CER.ini
Dim $Path		; User path string
Dim $CER1		; defines where the CER.ini base file is stored
Dim $CER2		; defines the environment folder  
Dim $CER3		; defines the environment folder for the CER.ini
Dim $CER4		; defines where the CER.ini file is saved to, and looked for
Dim $PFX		; defines the value for PFX for claimsview
Dim $MENU		; defines the value for Menu for claimsview
Dim $MaxSession		; Maximum number of allowed sessions
Dim $App		; defines the EXE to be Run
Dim $Message		; message header
Dim $TaskList		; command to return list of user tasks
Dim $aResult		; array containing STDOUT and STDERR arrays
Dim $Rc			; Return code catcher
;
Call 'c:\scripts\WshPipe.udf'	; Places a call to a script that helps identify running user EXE's.
;
$Rc = SetOption('NoVarsInString', 'On')
$Rc = SetOption('NoMacrosInString', 'On')
;
$pzb = '\\root\Production$'
$Path = '\\root\userconfigs$\' + @Userid
$cer1 = '\\root\cer$'
$cer2 = '\Production'
$cer3 = $Path + $cer2
$cer4 = $cer3 + '\cer.ini'
$pfx = '0001'
$Menu = 'Y'
$MaxSession = 2
$App = 'c:\appname\app\app.exe'
$Message = '             You are not allowed to run more than two copies of OurApp.       '
$Tasklist='tasklist /FI "Username eq %USERDOMAIN%\%USERNAME%" /FI "Imagename eq App.exe"'
$aResult=WshPipe($Tasklist) 
;
; Checking for Cer.ini, copy it if it's not there
; 
IF NOT Exist ($Path)
	MD $Path
EndIf
;
If NOT Exist ($cer4)
	MD $cer3
	copy $cer1 + '\cer.ini' $cer3
	WriteProfileString($cer4, 'System', 'PzbPath', $pzb)
	WriteProfileString($cer4, 'CLAIMVIEW', 'PFX', $pfx)
	writeProfileString($cer4, 'CLAIMVIEW', 'MENU', $Menu)
EndIf
;
;
If UBound($aResult[0]) < ($MaxSession +3)
	Run "$App $cer4"
Else
	MessageBox ("$Message","   ***You are not allowed to run more than two App sessions***   ",0,10)
EndIf
;
;
Exit 0

Run "$App $cer4"

c:\appname\app\app.exe\\root\userconfigs$\<UserID>\Production\cer.ini

$Cmd = $App + $Cer4
'Running: ' $Cmd @CRLF
Run $Cmd

$Cmd = $App + ' ' + $Cer4

Dbg('About to run: ' + $Cmd)

Run $App + ' ' + $cer4

$Var = 4

Dim $Var
$Var = 4

Dim $X, $Y, $Z, $A, $B, $C

Dim $I, $J, $K   ; index pointers
Dim $aFiles, $File  ; array of files & enumerator
Dim $lblField1, $lblField2   ; KixForms field labels for form 1