execute exe file?

[Shmulik Golan]

hi.
is it possible to execute exe or dll file from local htm file (using VbScript, maybe)?

Smile, Shmulik. (-;

[Iouri]

Option Explicit

Dim FSO
Dim WSH

Const AppToRun = "C:\test.exe"

Set WSH = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(AppToRun) Then
WSH.Run AppToRun
Else
MsgBox AppToRun & " Does not Exist"
End If

Remember to enclose long file names in Quotes





Iouri Boutchkine
iouri@hotsheet.com

[Shmulik Golan]

ok it's work - but...
in this way i recieve an alart message. i do not want this message. is there another way?

Smile, Shmulik. (-;

[Iouri]

Are you trying to write a virus?

Iouri Boutchkine
iouri@hotsheet.com

[Shmulik Golan]

i knew you'll think so.
no. i'm trying to build a local internet application (something like intranet) on my computer, that will be able to run exe files (instead start->programs, for example). i want to run it with out IIS, so i need to execute files using VbScript.
just for remind: every thing is local. no access to the internet.

Smile, Shmulik. (-;

[Rog]

I tried this code and got WScript undefined. Could you tell me the problem?? Thanks

[Iouri]

Do you have WindowsScriptHost installed on your machine?

Iouri Boutchkine
iouri@hotsheet.com

[Rog]

I don't know but it would seem that I do not. Any suggestions?

[Rog]

Yes, I have WScript installed in the Windows Directory as a Host Application. What do you think, you have been very good so far and it is much appreciated. Any response to your download code, which works and now I need some upload code.
Thanks again

[Iouri]

Rate it if it helped you

Iouri Boutchkine
iouri@hotsheet.com

[Rog]

Yes, I do have it intalled. I'm trying to execute it from an HTM document-does that matter?