PS~MBEE1>type .\get-excel.vbs Option Explicit Dim oExcel Set oExcel=GetObject(,"Excel.Application") oExcel.Visible=vbTrue PS~MBEE1>cscript //nologo //e:vbscript get-excel.vbs
param([STRING]`
$psFROM='',`
$pnDAYS=1,`
$pnOracleCli=100,`
$pnINCR=-1) `
#Must be the first statement in your script
CLEAR-HOST
# history:
# ~ $psFROM date starting point
# ~ $pnDAY number to iterate[default 1]
# ~ $pnINCR whether back (-1) or forward (1)
# ~ $pnOraCli number of clients to allow in tandem
$ldFROM =(GET-DATE);$ldSTOP =(GET-DATE);$ldTO =(GET-DATE);
$lsFROM =GET-DATE;$lsSTOP =GET-DATE;$lsTO =GET-DATE;
$lnDAYS =0;$lnINCR =$pnINCR;$lnOracleCli =$pnOracleCli;
if ($psFROM -ne $empty)
{$ldFROM =GET-DATE "$psFrom" -FORMAT "dd-MMM-yyyy"}
else
{$ldFROM = GET-DATE}
$ldSTOP = (GET-DATE $ldFROM ).AddDays($pnDAYS*$pnINCR)
$ldTO = $ldFROM
$lsFROM = GET-DATE $ldFROM -FORMAT "dd-MMM-yyyy"
$lsTO = GET-DATE $ldFROM -FORMAT "dd-MMM-yyyy"
$lsSTOP = GET-DATE $ldSTOP -FORMAT "dd-MMM-yyyy"
#at this point the dates s/b set now transform into
#how they're used in main part of script (in terms of format and type)
#start of loop
write-host "#-";
WRITE-HOST "# OraCli limit~$pnOracleCli~SO no daywidgets(16) X 5 DAYS = 90..."
$iDAYCOUNT=0;
while($ldFROM -ne $ldSTOP){
WRITE-HOST "# Extracting Data For $lsFROM THRU $lsTO...stopping at $DATESTOP"
START-PROCESS `
-FILEPATH C:\ORANT\BIN\PLUS33.EXE `
-WORKINGDIRECTORY m:\ `
-WINDOWSTYLE MINIMIZED `
-ARGUMENTLIST "$duserid/$dpassword@d @C:\yourQUERY.PDC Chunk1 $lsFROM $lsTO"
START-PROCESS `
-FILEPATH C:\ORANT\BIN\PLUS33.EXE `
-WORKINGDIRECTORY m:\ `
-WINDOWSTYLE MINIMIZED `
-ARGUMENTLIST "$duserid/$dpassword@d @C:\yourQUERY.PDC chunk2 $lsFROM $lsTO"
START-PROCESS `
-FILEPATH C:\ORANT\BIN\PLUS33.EXE `
-WORKINGDIRECTORY m:\ `
-WINDOWSTYLE MINIMIZED `
-ARGUMENTLIST "$duserid/$dpassword@d @C:\yourQUERY.PDC chunk3 $lsFROM $lsTO"
...
$iDAYCOUNT=$iDAYCOUNT+1;
$ldFROM =(get-date $lsFROM).adddays($lnINCR)
$ldTO =(get-date $lsTO).adddays($lnINCR)
$lsFROM =GET-DATE $ldFROM -FORMAT "dd-MMM-yyyy"
$lsTO =GET-DATE $ldTO -FORMAT "dd-MMM-yyyy"
$iDAYCOUNT_MOD_5=$iDAYCOUNT % 5;
if ($iDAYCOUNT_MOD_5 -eq 0){
$iDAYCOUNT=0
$I=0;
$GPE=GET-PROCESS -NAME PLUS33 -ERRORACTION SILENTLYCONTINUE;
FOREACH($P IN $GPE){
IF($P.ID -NE $NULL){$I=$I+1}};
$sqlplus_COUNT=$I;
WRITE-HOST "#-"
WRITE-HOST "# Spawn then wait for Oraclient(s) to finish..."
WRITE-HOST "#-"
$begin=GET-DATE
WRITE-HOST "# $begin"
while ($sqlplus_COUNT -ne 0){
start-sleep -s 10
$I=0;
$GPE=GET-PROCESS `
-NAME PLUS33 `
-ERRORACTION SILENTLYCONTINUE;
FOREACH($P IN $GPE){
IF($P.ID -NE $NULL){
$I=$I+1
}
};
$sqlplus_COUNT=$I;
}
}
}
write-host "#-"
write-host "# done..."
write-host "#-"
$done=get-date
write-host "# $d"
PS C:\Documents and Settings\mbee>TYPE .\_PS1\QUERYSHEET_MSG_ERRORS.ps1
Clear-Host;
$Machine = "RIALTO";
Get-EventLog Application -newest 100|Where-Object { $_.Message -match "QUERYSH*"};
PS C:\Documents and Settings\mbee>.\_PS1\QUERYSHEET_MSG_ERRORS.ps1
Index Time EntryType Source InstanceID Message
----- ---- --------- ------ ---------- -------
3692 Jun 26 10:36 Information WSH 1073741828 QUERYSHEET_REFRESH.xlsm ~ 1004...
Dim aaa_speak _
, sClipboard _
, oIE _
, oSh _
, oSAPI _
, zzz_speak
Set oIE=CreateObject("InternetExplorer.Application")
Set oSAPI=CreateObject("SAPI.SpVoice")
Set oSh=CreateObject("WScript.Shell")
oSh.SendKeys "%{Tab}^{Insert}"
oIE.Navigate("about:blank")
sClipboard= _
oIE.document.parentwindow.clipboardData.GetData("text")
oIE.Quit
oSAPI.Speak sClipBoard
Set oSh=Nothing
Set oSAPI=Nothing
WScript.Quit
