WebFocus_Batch.vbs ~ wsf

This proves handy if you need to break apart a volume request with EDASTART.  The idea is to first run a focus exec that creates a PARMSFILE that can then be processed by this script.  It's parameters are generalized, i.e., P1, P2, P3, etc.  It assumes you've created a T3I_template file that has these as substitution variables of the form %P1%, %P2%, %P3%, etc.

Performs iterative focus requests for Batch reporting
Assumes: t3i_template
CScript ..\_cmd\WebFocus_BATCH.wsf…
/PARMSFILE:p1parms.ftm…
/T3I=mfr_r_P1…
/P1:4…
/P2:2…
/P3:5…
/P4:3…
/P1_Default:0682

...

Creative Commons License
WebFocus_Batch by Michael T. Bee is licensed under a Creative Commons Attribution 3.0 Unported License.
Based on a work at michaeltbeeitprof.blogspot.com.
Permissions beyond the scope of this license may be available at mailto:michael.t.bee.itprof@gmail.com.

WebFocus_Request.vbs ~ .wsf

This proves handy if you're constantly doing EDASTART requests on a server. Takes some of the tedium and repetion out of creating batch requests.

Creative Commons License
WebFocus_Request by Michael T. Bee is licensed under a Creative Commons Attribution 3.0 Unported License.
Based on a work at michaeltbeeitprof.blogspot.com.
Permissions beyond the scope of this license may be available at mailto:michael.t.bee.itprof@gmail.com.

<package>
<job id="WebFocus_Request">
<object id="oFS"
progid="Scripting.FileSystemObject"
/>
<object id="oSh"
progid="WScript.Shell"
/>
<reference object="Scripting.FileSystemObject" />
<reference object="WScript.Shell" />
<script language="vbscript"
src="WebFocus_Request.vbs"
>
</script>
</job>
</package>


OPTION EXPLICIT
'-
' Name: WebFocus_Request.vbs
' Description: Use EDASTART to performs focus requests
' Syntax: CScript WebFocus_Request.wsf /fex:your.fex
'-
Dim bDebug, oArguments, oT3I, sCurDir, sCurDrive, sFEX, sRun
Set oArguments= WScript.Arguments.Named
sFEX=oArguments.Item("FEX")
If sFEX="" Then
WScript.Echo "Expecting one argument FEX:yourfex"
WScript.Quit
End If
'
sCurDir=oSh.CurrentDirectory
sCurDrive=Left(sCurDir,2)
'
Set oT3I=oFS.OpenTextFile(sCurDir & "\" & sFEX & ".t3i",ForWriting,vbTrue)
oT3I.Writeline "%connect"
oT3I.Writeline "%begin"
oT3I.Writeline "EX " & sFex
oT3I.Writeline "%end"
oT3I.Writeline "%disconnect"
oT3I.Writeline "%stop_server"
oT3I.Close
'
sRun= "cmd /c " & _
"(@echo off) && " & _
"(" & sCurDrive & ") && " & _
"(cd " & sCurDir & ") && " & _
"(call e:\ibi\64bit\srv76\wfs\bin\edastart -f " & sFEX & ")"
'
If bDebug Then
sRun=InputBox("sRun?",WScript.ScriptName,sRun)
End If
'
oSh.Run sRun, 4, vbTrue

Opera 10.6 is good ~ voice is back...

Just upgraded to 10.6.  I like it. It does seem faster, and, I especially like that 'voice' is back...

%comspec% /v:on

Arcane, twisted, strange(hereafter referred to as "ATS")?   Welcome to my world.  However, some benefits:

-Logic is all "inline"
-Some constructs ~ problems become easier to resolve(at least for me--remember ATS).

In order to fully realize it's potential it's invoke DOS using delayed variable expansion.  Also, if
your making this a "startup" prompt for dos--use /k switch.

EXAMPLE

%comspec% /v:on /k (C:)

Favorite Tweets