WN - URL format file://

WN (https://www.wn.se/forum/index.php)

- Klientsidans teknologier, design och grafik (https://www.wn.se/forum/forumdisplay.php?f=12)

- - URL format file:// (https://www.wn.se/forum/showthread.php?t=9878)

Citat:

Originally posted by Kristofer@Sep 15 2005, 20:26
Utan att berätta för mycket så startas många av Nordeas program, som används i kundtjänst, via Intranätet. Det är alltså helt vanliga program utanför webläsaren som öppnas och förmodligen ligger de på de lokala datorerna eller på nån nätverksdisk...
Jag är nästan övertygad om att det finns en lösning, då jag sett Nordeas intranät.

Kan tänka mig att lite active x och säkra zoner löser sånt här.

Citat:

Ursprungligen postat av koala

Citat:

Ursprungligen postat av Kristofer

Utan att berätta för mycket så startas många av Nordeas program, som används i kundtjänst, via Intranätet. Det är alltså helt vanliga program utanför webläsaren som öppnas och förmodligen ligger de på de lokala datorerna eller på nån nätverksdisk...
Jag är nästan övertygad om att det finns en lösning, då jag sett Nordeas intranät.

Kan tänka mig att lite active x och säkra zoner löser sånt här.

Precis vad jag försökt säga i ett antal inlägg. Applet eller ActiveX löser det.

Tillverka en .bat fil on-the-fly som i sin tur kör den bat fil du vill med parametrar.
Tvinga sen nedladdning av bat filen, så går det ju att köra den på klienten. Blir ju visserligen ett extra moment för användaren, klicka på "Öppna"/"Kör" , men det borde vara det snabbaste sättet.

jag bjuder på denna :-)

Kod:



<html>

<head>



<script language="VBScript">

Sub Run(strPathToExe,strParameterInfo ) 





        'Om du nu skulle vilja köra koden direkt och köra in parametrar via Code behind

        'Kan du göra det här. 

        'c:\dinmapp\dinexe.exe'

        'Dim strPathToExe 

        'strPathToExe = "dinexe.exe"

        

        'Din parameter info 

        'Dim strParameterInfo 

        'strParameterInfo = "123456"

        

        'Deklarerar och eventuellt nollar

        Dim m_Output

 * *

 * *'Skapar FileSystemObject

 * *Dim oFS

 * *Set oFS = CreateObject("Scripting.FileSystemObject")

        

 * *'Temp folder

 * *Dim oTempFolder

 * *Set oTempFolder = oFS.GetSpecialFolder(TemporaryFolder)



 * *'Skapar PATH till den temporära filen som vi skall PIPE:a till

 * *Dim sTempFile

 * *sTempFile = oTempFolder.Path & "" & oFS.GetTempName

 * *Set oTempFolder = Nothing



        'Skapar Shell objektet

 * *Dim oShell

 * *Set oShell = CreateObject("Wscript.Shell")



 * *'Kör CMD och tar hand om PIPE informationen

 * *oShell.Run "cmd.exe /c " & strPathToExe & " " & strParameterInfo & " > " & sTempFile, 0, True

 * *Set oShell = Nothing



 * *'Tar hand om OUTPUT från CMD

 * *Dim oTempFile

 * *Set oTempFile = oFS.OpenTextFile(sTempFile, 1)

 * *While Not oTempFile.AtEndOfStream

 * * * * m_Output = m_Output & oTempFile.ReadLine & vbCRLF

 * *Wend



 * *'Tar bort den temporära filen

 * *oTempFile.Close

 * *Set oTempFile = Nothing

 * *oFS.DeleteFile sTempFile

 * *Set oFS = Nothing

 * *

 * *'Du gör ju såklar vad du vill med resultatet

        MsgBox m_Output

End Sub



</script>



</head>

<body>

<a href="javascript:Run('c:/din.exe', 'Parameter12345678');">Testfil</a>



</body>

</html>