VbScript and HTML to run Script

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

VbScript and HTML to run Script

Logged in as: Guest

arrSession:exec spGetSession 2,2,52344

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> VbScript and HTML to run Script
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

VbScript and HTML to run Script - 10/1/2007 12:01:26 AM

svansingel

Posts: 11
Score: 0
Joined: 9/18/2007
Status: offline

OK I need help with this.

I have a scritp that pulls some information and then displays it in HTML.
What iw would like to do is, if you click on a link it will run a VbScript that I wrote.
The problem is, the page shoes error on page and it will not run the scipt.
This is what I have so far.

<td width='40%' style='background-color:#ADD8E6'><span style='font-family:Arial;font-size:24pt'><a href='vbscript:Run(Reading">File:///c:/apacs/wks0.vbs)'>Reading Room 1:</a></span></td>"

Let me know what you think.

Thank you

Post #: 1

RE: VbScript and HTML to run Script - 10/1/2007 12:36:43 AM

ehvbs

Posts: 2223
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi svansingel,

given an external script like

this .hta

<html>
<head>
 <hta:application id = "runscript"
 />
 <title>runscript</title>
 <meta http-equiv = "content-script-type" content = "text/vbscript"/>
 <script language = "VBScript"
         type     = "text/vbscript"
 >
'<![CDATA[

''= runs external script
' ============================================================================
Sub runScript()
 Dim sCmd  : sCmd  = "cscript ""C:\wis\_vbs\0506\dev\forum\runscript.vbs"""
 Dim nWS   : nWS   = 7 ' Displays the window as a minimized window. The active window remains active.
 Dim bWait : bWait = True
 Dim iRet  : iRet  = CreateObject( "WScript.Shell" ).Run( sCmd, nWS, bWait )
End Sub

''= refreshes the HTA page, which includes re-running any Windows_Onload code
' ============================================================================
Sub reloadHTA()
 location.reload True
End Sub

']]>
 </script>
</head>
<body>
 <input type = "BUTTON" value = "runscript" onclick = "runScript">
 <hr />
 <input type = "BUTTON" value = "reload" onclick = "reloadHTA()">
</body>
</html>

calls the script sucessfully. I hope you can adapt it to your needs; consult the
VBScript Docs for details of the .Run method (the is no Run() function or sub in
VBScript).

Good luck

ehvbs

(in reply to svansingel)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> VbScript and HTML to run Script

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts