I have an application using oracle developer 6i (dev 6i). The application must communicate with the website to get the result. For example: If the application click the button then will access http: // localhost /show, and then the result “It works” showing to the application
I found winhttpjs.bat ( https://github.com/npocmaka/batch.scripts/blob/master/hybrids/jscript/winhttpjs.bat )
CMD> call winhttpjs.bat http://localhost/show -saveTo result.txt
If the result
CMD> Status: 200 OK
then file result.txt contained the result of website It work’s
If the result
CMD> A connection with the server could not be established
then file result.txt contained The system cannot find the file specified.
To get the result for dev6i I’m using HOST to get the result and TEXT_IO for retrive text file (result.txt)
Download ~ winhttpjs-bat (erase .doc)
this example, I want to show you how to automate print using default printer on local computer.
PROCEDURE GENERATE_VALIDATION (ID1 number, ID2 number, ID3 DATE) IS
PL_ID PARAMLIST;
filename varchar2(255);
teks varchar2(255);
IN_FILE TEXT_IO.FILE_TYPE;
BEGIN
pl_id := Create_Parameter_List('TEMP');
ADD_PARAMETER(PL_ID,'ID_1',TEXT_PARAMETER,ID1);
ADD_PARAMETER(PL_ID,'ID_2',TEXT_PARAMETER,ID2);
ADD_PARAMETER(PL_ID,'ID_3',TEXT_PARAMETER,ID3);
--this statement for get default printer and generate to text file
host('CMD /C wmic printer where default=''TRUE'' get name > '||filename,NO_SCREEN);
--because wmic generate 3 lines, this statement for get only line where the
--default printer located
host('CMD /C Powershell "Get-Content '||filename||' | Select-Object -Index 1" > '||filename||'.txt', NO_SCREEN );
begin
IN_FILE := TEXT_IO.FOPEN(filename||'.txt', 'r');
TEXT_IO.GET_LINE(IN_FILE,TEKS);
--Trim TEKS, because there is spaces after default printer name
TEKS := LTRIM(RTRIM(TEKS));
TEXT_IO.FCLOSE(IN_FILE);
exception when others then
TEXT_IO.FCLOSE(IN_FILE);
end;
--erase temporary files
host('CMD /R DEL '||filename||'.*',NO_SCREEN);
--if there's default printer then automate print default printer on local computer
if TEKS is null then
ADD_PARAMETER(PL_ID,'DESTYPE',TEXT_PARAMETER,'PRINTER');
ADD_PARAMETER(PL_ID,'DESNAME',TEXT_PARAMETER,TEKS);
--if there's no default printer then show your report
else ADD_PARAMETER(PL_ID,'DESTYPE',TEXT_PARAMETER,'SCREEN'); end if; Add_Parameter(pl_id,'PARAMFORM', TEXT_PARAMETER, 'NO'); Add_Parameter(pl_id,'PRINTJOB', TEXT_PARAMETER,'YES'); Run_Product(REPORTS,'VALIDATION', SYNCHRONOUS, RUNTIME,FILESYSTEM, pl_id, NULL); Destroy_Parameter_List(pl_id); END;
Reference: https://technet.microsoft.com/en-us/library/hh849895.aspx | https://adamstech.wordpress.com/2010/11/1 | http://stackoverflow.com/questions/17217476..
Notes: For windows XP/2003 you must install powershell, here’s the links:
@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
for /f "tokens=2 delims==" %%a in ('wmic printer get name /value') do (
set printer=%%a
if defined printer (
if "!printer:~0,2!"=="\\" (
echo !printer! >> "C:\file.txt"
)
)
)
ENDLOCAL
echo on
reference: https://community.spiceworks.com/topic/365018-list-network-printers-via-batch-file
Example 100 connection
Open all n101.bat to n200.bat file and all the connection began.
To kill them, create shortcut on the desktop example %windir%\system32\taskkill.exe /IM gg-client.exe
Copy this script and save to batch file, or run from cmd
pause
When you run the script, then automating create to user
USER001
(more…)
Jaman sekarang ini, komputer/laptop dengan spec tinggi yang mempunyai port LPT1 (Printer) jarang ditemukan, biasanya LPT3 atau USB….
Ada beberapa aplikasi yang membutuhkan koneksi ke LPT1, oleh karena itu dibutuhkan alias untuk dapat tetap menggunakan port LPT1
@ECHO OFF Echo Membuat auto eksekusi LPT1 pada komputer client (more...)
SUB DELAY (SECOND!) STATIC BEGIN! = TIMER DO UNTIL (TIMER - BEGIN! > SECOND!) OR (TIMER - BEGIN! < 0) LOOP END SUB
‘cara penggunaan
DELAY 0.5 'maksudnya akan ada jeda (delay) selama 1/2 detik
purpose:
search keyword from one file or many files
example:
For example you want to search all keyword Ari Wibawa on all file with extension 500 in the folder
example 1:
findstr /C:”Ari Wibawa” *.500
result 1:
D:\vbs\JL\output>findstr /C:”Ari Wibawa” *.500
R0131_GLR00002.500: (more…)
DONT WANNA BE NUMBER ONE
Connor McDonald's Oracle blog
Just another WordPress.com weblog
Jurnalisme Yang Dapat Dipercaya
Ayo Bangkit sobat..!!!!!
Orang Desa Yang Mencintai Desa dan Kebudayaannya
New Food and Art in Yogyakarta
Musafir Dunia Maya
My Reference on SQL Server
oeuvre
"A distance is getting far if your heart is impatient" -ean-
Street Photography is like a box of a chocolates, you're never know what you're gonna get - Thomas Leuthard -
-- Andrivito's Journal --
This site is about Latest NEWS, Articles, Videos, Books, Course, Presentations, Tips & Tricks related to I.T Pro's
|| तत् त्वम् असि ||
Menuju Pribadi Muslim Sejati yang Bertaqwa
Manajemen Sholat, renungan spiritual, Teknologi Informasi
Mari berbagi kebaikan, pengalaman dan senyum denganku
Ceritanya saya, Pikirannya saya, Hatinya saya
