Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

VBscript code to let me point to a executable on my server

Status
Not open for further replies.
vemate

vemate

Programmer
Aug 23, 2002
61
US
<! This script executes Forest Products Accounting from the Intranet WEB>
<Input language="VBScript" type="Button" value="Click FPA System" onclick="ExecHTA()">
<Script language="VBScript">
' Public Object so i dont have to keep making them
'and they are separated by subs or functions
<!--------------------------------------------------------------->
Public w
Set w = CreateObject("WScript.Shell")
Sub ExecHTA()
w.Exec("mshta F:\TZO\FPAWEB.TZO.COM\OLM_DOWNLOAD\simple.hta")
End Sub
<!--------------------------------------------------------------->
This shell code calls a hta file from my web site but the path is lost and I cannot execute the program. I am no expert with vbscript. I need a way to make sure my path is pointing to my F: drive which is the drive my Web site runs the executables from. I am using hta which is a html program that allows execution with html. I would appreciate code to show me how to set my data path correctly.

Thank you very much.
 
Sort by date Sort by votes
So, in the HTA, what does the line of code that calls aas2.exe look like?
 
Upvote 0 Downvote
<html>
<head>
<title> FPA Demo System
</title>
</head>
<p align=center><font size=4 color=navy>
Forest Products Accounting
<p>
<body bgcolor=lightyellow>
<br>
<div align=center>
<button onclick="self.close()">[ STOP ]

</button>
<form method="post" action="f:\tzo\fpaweb.tzo.com\fpa\aas2.exe") onSubmit=""></a>

<input type="submit" value="FPA [ DEMO ]"></a><br><br>


</body>
</html>
 
Upvote 0 Downvote
This isn't really written as an HTA. Try rewriting it so that you have a window_onload sub. In that sub, create a shell object and exec the aas2.exe file. Also, according to what you told me above, the path should be:
f:\tzo\fpa\aas2.exe
Not:
f:\tzo\fpaweb.tzo.com\fpa\aas2.exe
 
Upvote 0 Downvote
You lost me. I am struggling to get the vbshell to work.

I do not know what you mean window_onload sub. Is this VBscript? This is the right path F:\tzo\fpa\aas2.exe
I was going by what Microsoft said that all you have to do to htm is change the extention to hta that is what I did. But apparently that is incorrect.
 
Upvote 0 Downvote
I need to go home now. I will try to post more over the weekend, but I may not be able to until Monday. (having wisdom teeth pulled tomorrow)
 
Upvote 0 Downvote
I really appreciate all your help. Sorry about the teeth.
Hope you do not have much pain.

You have been so helpful
Thanks again
 
Upvote 0 Downvote
Hi friend I hope you are feeling well today.
Here is my code to exexute my program what do you think.
How do I execute it?? Do I need a submitt somewhere.

<html>
<HEAD>
<body bgcolor=lightyellow>
<p align=center>
<font size=4 color=navy>

Forest Products Accounting
<SCRIPT LANGUAGE="VBSCRIPT">

On Error Resume Next
Set obj = CreateObject("f:\tzo\fpa\aas2.exe")
If Err.Number >0 Then MsgBox _ Err.Description

<!%@ Language=VBScript %>

<%
Set objShell = Server.CreateObject("WScript.Shell")
objShell.Run("f:\tzo\fpa\aas2.exe")
Set objShell = Nothing
%>

</SCRIPT>
</HEAD>

<html>
 
Upvote 0 Downvote
I don't think you need this part at all:

On Error Resume Next
Set obj = CreateObject("f:\tzo\fpa\aas2.exe")
If Err.Number >0 Then MsgBox _ Err.Descriptio

Tell me again what is or is not happening.
 
Upvote 0 Downvote
I sumbitt this code with another HTM program and nothing happens I get a blank screen.

<html>
<HEAD>
<body bgcolor=lightyellow>
<p align=center>
<font size=4 color=navy>

<Script language="VBScript">

Set objShell = Server.CreateObject("WScript.Shell")
objShell.Run("F:\tzo\FPA\AAS2.EXE")
Set objShell = Nothing

</SCRIPT>
</HEAD>
<html>
 
Upvote 0 Downvote
I changed the extention to .hta and changed this line to
Set objShell = CreateObject("WScript.Shell")
and it ran but.

I need a path statement because I am looking for the winnt folder I am being sent to the desktop for some reason and I cannot find my aas2.ini file which is located in the winnt folder this is my data path.

Do you know how to put a path statement to stop me from going to the desktop to run.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Alexvb6
  • Locked
  • Question
Deprecation of VBScript + Classic ASP: How to Ask Microsoft to cancel their planned craziness
Replies
0
Views
682
Alexvb6
Alexvb6
bdwilcox
  • Locked
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
1K
SoftwareRT
SoftwareRT
K
  • Locked
  • Question
VBSCRIPT dont work windows 11 23h2 ???
Replies
2
Views
1K
SoftwareRT
SoftwareRT
S
  • Locked
  • Question
Need to submit page when clicking a checkbox
Replies
0
Views
425
shbr5413
S
Peterdo
  • Locked
  • Question
Read code
Replies
1
Views
392
strongm
strongm

Part and Inventory Search

Sponsor

Back
Top