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>