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 gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

VBScript or WScript error in HTML 1

Status
Not open for further replies.
EAS

EAS

Programmer
May 21, 2001
25
GB
Can anyone point out my error in the following code? The lines 18 to 23 work seperately as a vbs file. I'm trying to take my Intranet users straight to their desktops. We are a "Microsoft Site" so it's all IE and NT/95/98.

1 <!DOCTYPE html PUBLIC &quot;-//W3C//DTD HTML 4.01 Transitional//EN&quot;>
2 <html>
3 <BODY bgcolor=&quot;palegoldenrod&quot; ID=&quot;prgmain&quot;>
4 <OBJECT ID=&quot;WebBrowserControl&quot; WIDTH=90% HEIGHT=90%
5 CLASSID=&quot;CLSID:EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B&quot;>
6 <PARAM NAME=&quot;Height&quot; VALUE=&quot;600&quot;>
7 <PARAM NAME=&quot;Width&quot; VALUE=&quot;350&quot;>
8 <PARAM NAME=&quot;AutoSize&quot; VALUE=&quot;0&quot;>
9 <PARAM NAME=&quot;ViewMode&quot; VALUE=&quot;1&quot;>
10 <PARAM NAME=&quot;AutoSizePercentage&quot; VALUE=&quot;0&quot;>
11 <PARAM NAME=&quot;AutoArrange&quot; VALUE=&quot;1&quot;>
12 <PARAM NAME=&quot;NoClientEdge&quot; VALUE=&quot;1&quot;>
13 <PARAM NAME=&quot;AlignLeft&quot; VALUE=&quot;0&quot;>
14 </OBJECT>
15 <SCRIPT LANGUAGE=&quot;VBScript&quot;>
16 <!--
17 Sub WebBrowserControl_onMouseOver()
18 Dim Shell
19 Dim DesktopPath
20
21 Set Shell = WScript.CreateObject(&quot;WScript.Shell&quot;)
22
23 DesktopPath = Shell.SpecialFolders(&quot;Desktop&quot;)
24
25 WebBrowserControl.Navigate ( DesktopPath )
26 end sub
27 -->
28 </SCRIPT>
29 </BODY>
30 </HTML>

Thanks in advance!
Liz
 
Sort by date Sort by votes


eas,

Use:

For-

Set Shell = WScript.CreateObject(&quot;WScript.Shell&quot;)

use -
Set Shell = Server.CreateObject(&quot;WScript.Shell&quot;)

Fengshui1998

 
Upvote 0 Downvote
Thanks but I still get an error on page in my html and if I test it in my vbs I get an object required error. Do I have to add extra code to use Server?
 
Upvote 0 Downvote
I think I've solved it - as it's on our intranet I can set tha activex security to low and just have:
Set Shell = CreateObject(&quot;WScript.Shell&quot;)
This works fine (or appears to so far!). Thanks for your help - it pointed me in the right direction.
Liz
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

bdwilcox
  • Locked
  • Question
More efficient / manageable way to code this HTA w/ VBScript?
Replies
0
Views
640
bdwilcox
bdwilcox
soni21
  • Locked
  • Question
JavaScript String to Number Conversion in HTML: Seeking Clarification
Replies
4
Views
1K
Chris Miller
Chris Miller
lmcate
  • Locked
  • Question
From HTML Page open an MDB files on the server and work
Replies
0
Views
171
lmcate
lmcate
jizzer
  • Locked
  • Question
HTML/CSS Image map with multiple tool-tips
Replies
3
Views
1K
spamjim
spamjim
cae154
  • Locked
  • Question
Body of email not appearing in correct font on iPhone and iPad
Replies
1
Views
706
spamjim
spamjim

Part and Inventory Search

Sponsor

Back
Top