BATCH SSL

[AntonellaTrapani]

Ciao ragazzi, come va?

Alex aveva suggerito qualche post prima di utilizzare
Function Shell(PathName, [WindowStyle As VbAppWinStyle =
vbMinimizedFocus]) As Double
che va benissimo per la prima parte. Adesso devo fare i conti con un
file batch che invoca openssl e manda in errore la procedura con il
seguente errore:

"openssl.exe" non è riconosciuto come comando interno o esterno,
un programma eseguibile o un file batch


ma se nel file batch avvio solo openssl come faccio a passare i parametri?

Grazie
ANTO

[Gaspare]

Post by AntonellaTrapani
Ciao ragazzi, come va?
Alex aveva suggerito qualche post prima di utilizzare
Function Shell(PathName, [WindowStyle As VbAppWinStyle =
vbMinimizedFocus]) As Double
che va benissimo per la prima parte. Adesso devo fare i conti con un
file batch che invoca openssl e manda in errore la procedura con il
"openssl.exe" non è riconosciuto come comando interno o esterno,
un programma eseguibile o un file batch
ma se nel file batch avvio solo openssl come faccio a passare i parametri?
Grazie
ANTO

Ciao,
non sò cosa debba tu fare ma hai preso in considerazione ShellExecute ?
Potrebbe andarti a genio...chissà...
http://support.microsoft.com/kb/148632/it ;-)

[AntonellaTrapani]

Post by Gaspare
Ciao,
non sò cosa debba tu fare ma hai preso in considerazione ShellExecute ?
Potrebbe andarti a genio...chissà...
http://support.microsoft.com/kb/148632/it ;-)

Ciao Gaspare
gli ho dato una occhiata, ma non capisco come passare i parametri.

Grazie
ANTO

[Gaspare]

Post by AntonellaTrapani

Post by Gaspare
Ciao,
non sò cosa debba tu fare ma hai preso in considerazione ShellExecute ?
Potrebbe andarti a genio...chissà...
http://support.microsoft.com/kb/148632/it ;-)

Ciao Gaspare
gli ho dato una occhiata, ma non capisco come passare i parametri.
Grazie
ANTO

Ariciao,
allora in un modulo dichiari la seguente funzione:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As
Long) As Long

Public Const SW_NORMAL = 1



Esegui il file nel seguente modo

---

Dim ritorno as long

ritorno=ShellExecute(hWnd, "Open", "C:\directory\nomefile.estensione",
vbNullString, vbNullString, SW_NORMAL)

---

prova un pò...altrimenti segui la strada di @Alex



Buona serata :-)

[ALESSANDRO Baraldi]

Post by AntonellaTrapani
Ciao ragazzi, come va?
Alex aveva suggerito qualche post prima di utilizzare
Function Shell(PathName, [WindowStyle As VbAppWinStyle =
vbMinimizedFocus]) As Double
che va benissimo per la prima parte. Adesso devo fare i conti con un
file batch che invoca openssl e manda in errore la procedura con il
"openssl.exe" non è riconosciuto come comando interno o esterno,
un programma eseguibile o un file batch
ma se nel file batch avvio solo openssl come faccio a passare i parametri?
Grazie
ANTO

Che parametri....?
Non puoi eseguire direttamente openssl.Exe da Shell...?

Mi sfugge qualche cosa....

[AntonellaTrapani]

Post by ALESSANDRO Baraldi
Che parametri....?
Non puoi eseguire direttamente openssl.Exe da Shell...?
Mi sfugge qualche cosa....

si, da Shell avvio openssl.exe , ma mi ritrovo al prompt in dos, ed a quel
punto
devo passare i parametri (come si usa fare per format, ecc.)
per la generare il file criptato.

facendo partire ' encode.bat ' ( che contiene openssl.exe ed i suoi
parametri ) il file viene generato correttamente.

ma facendo partire encode.bat con una shell mi da l'errore:

"openssl.exe" non è riconosciuto come comando interno o esterno,
un programma eseguibile o un file batch

Ciao

ANTO


PS. x Alex , sto usando il portatile dell'ufficio, credo di averti spedito
involontariamente la risposta alla tua mail. Bye

[ALESSANDRO Baraldi]

Post by AntonellaTrapani
si, da Shell avvio openssl.exe , ma mi ritrovo al prompt in dos, ed a quel
punto
devo passare i parametri (come si usa fare per format, ecc.)
per la generare il file criptato.
facendo partire ' encode.bat ' ( che contiene openssl.exe ed i suoi
parametri ) il file viene generato correttamente.
"openssl.exe" non è riconosciuto come comando interno o esterno,
un programma eseguibile o un file batch
Ciao
ANTO
PS. x Alex , sto usando il portatile dell'ufficio, credo di averti spedito
involontariamente la risposta alla tua mail. Bye

Concordo con Gaspare per l'uso di ShellExecute(lpParameters prevista
appositamente) oppure ShellExecuteEx
con la struttura SHELLEXECUTEINFO


Nel caso di ShellExecute, se l'attributo lpFile specifica un EXE(come nel
tuo caso) , lpParameters è un puntatore ad una stringa con terminazione
nulla(Chr(0)) che specifica i parametri da passare all'applicazione.


Ma hai provato anche:

retVal=Shell("openssl.exe -encrypt -in",vbhide)

Public Const SW_HIDE = 0

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal
hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
As Long

Una cosa simile:
ShellExecute Me.hwnd, vbNullString, "openssl.exe", " -encrypt -in", "C:\",
SW_HIDE

ShellExecuteEx è un pò più complessa, ed in questo caso è equivalente.

[AntonellaTrapani]

es:

openssl.exe -encrypt -in ......

ANTO

[AntonellaTrapani]

proverò domani, a quest'ora sono ormai fusa

Grazie

[AntonellaTrapani]

....
ShellExecute Me.hwnd, vbNullString, "openssl.exe", " -encrypt -in", "C:\",
SW_HIDE

ShellExecuteEx è un pò più complessa, ed in questo caso è equivalente.


sarà "complessa" ma FUNZIA alla grande !!

Grazie ad entrambi

ANTO

PS. per chi mi ha contattato ( chiedendomi come rintracciarmi ) potrà farlo
nella sezione forum di Freeitalians.it. , l'email è riservata ...a pochi
;)

CIAO

[Alessandro Baraldi]

Post by ALESSANDRO Baraldi
....
ShellExecute Me.hwnd, vbNullString, "openssl.exe", " -encrypt -in", "C:\",
SW_HIDE
ShellExecuteEx è un pò più complessa, ed in questo caso è equivalente.
sarà "complessa" ma FUNZIA alla grande !!
Grazie ad entrambi
ANTO
PS. per chi mi ha contattato ( chiedendomi come rintracciarmi ) potrà farlo
nella sezione forum di Freeitalians.it. , l'email è riservata ...a pochi
;)
CIAO

Per chi lo ha fatto spero sappia che non è il massimo della
correttezza.... le soluzioni
si danno sul NG e non in privato, lo trovo decisamente un comportamento
poco serio e
da non incentivare.

Saluti.

@Alex

[Gaspare]

[CUT]

Post by AntonellaTrapani
PS. per chi mi ha contattato ( chiedendomi come rintracciarmi ) potrà
farlo nella sezione forum di Freeitalians.it. , l'email è riservata ...a
pochi ;)

Concordo pienamente con @Alex -> il rispetto della privacy delle persone è
fondamentale x cui chi legge partecipa qui in modo "cristallino" (in codesto
loco) o si organizza in privato come condizione che vada bene ad entrambi
gli interlucutori ma che non sia in qualche modo una "forzatura" da parte di
qualcuno nei confronti dell'altro. "Personalmente" quando agli inizi
proponevo alla gente (in modo ovviamente "sbagliato" in quanto mi sono letto
parecchio dopo le regole) di inviarmi il db x aggiustarlo lo facevo qui
sotto gli occhi di tutti ;-)