Ma confrunt cu urmatoarea situatie:

de pe PC14 trebuie sa lansez pe PC23 o aplicatie (un exe oarecare) fara sa folosesc Remote Desktop fiindca nu trebuie sa-i preiau controlul calculatorului (decat cel mult pentru cateva secunde astfel incat pe utilizator sa nu-l incurce in ceea ce face). Ex. Generez un document pe care il copiez prin retea la el pe calculator si il printez de la imprimanta lui, sau printez de la PC14 un bon fiscal la casa de marcat conectata la PC23. Pentru asta pot lansa driverul casei de marcat pe PC23 fara ca pe ecranul utilizatorului respectiv sa apara vre-o fereastra care sa-l deranjeze in ceea ce face.

Am gasit pe net o solutie in VB care foloseste Win32_ScheduledJob Class dar mie nu imi merge decat daca o lansez pentru calculatorul propriu. Daca la strComputer pun un calc din retea (PC23) nu mai functioneaza. Trebuie facuta vre-o setare pe calculatorul "tinta" pe care vreau sa lansez aplicatia, sau trebuie sa pornesc vre-un serviciu? In articolul respectiv spunea ca foloseste WMI.

http://motevich.blogspot.com/2007/11/execute-program-on-remote-computer.html

Multumesc,

Am folosit DirectoryMonitor fiindca nu mai lucrasem nici cu winsock nici cu servicii web si rezolvarea imi trebuia "ieri" ca de obicei.

Singura problema a fost ca la declansarea unui eveniment (creare/modificare/stergere) de fisier in directorul monitorizat, DirectoryMonitor lanseaza exe-ul pe care i-l specifici cu 2 parametrii:

cNumeFisier- cale+nume fisier care a declansat evenimentul

cOperatie - ce anume s-a intamplat cu fisierul (creare/modificare/stergere)

In rest, nu am facut decat sa lansez ShellExecute si sa-i specific ce vreau (print de pdf, respectiv lansarea driverului casei de marcat)

PARAMETERS fisier, p1

DECLARE INTEGER ShellExecute IN shell32.dll ;

INTEGER hndWin, ;

STRING cAction, ;

STRING cFileName, ;

STRING cParams, ;

STRING cDir, ;

INTEGER nShowWin

IF RIGHT(fisier,3)='inp'

cAction='open' && 'print'

ELSE

cFileName=fisier && "C:\windows\notepad.exe"

cParams=SPACE(0) && "d:\seniorremote\fisier.txt"

cAction='print'

ENDIF

cDir=""

nShowWin=3 && 1 = normal, 2 = minimised, 3 = maximised

kk=shellexecute(0,cAction,cFileName,cParams,cDir,nShowWin)