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

Web based printer install 1

Status
Not open for further replies.
gumbald

gumbald

Technical User
Apr 6, 2006
16
I am trying to create a web based interface in order that users can choose a printer and it can be installed. This is to be implemented in a school with many, many printers. However, I have the function:

<script language="VBScript" type="text/vbscript">
<!--'
Sub MapPrinter()
Dim netPrinter, UNCpath
UNCpath = "\\casper\HPLaserJet4"
Set netPrinter = CreateObject("WScript.Network")
netPrinter.AddWindowsPrinterConnection UNCpath
'-->
</script>

This produces the following when the page is accessed:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'MapPrinter'
/Printers/index.asp, line 25

Any thoughts?

Jamie
 
Sort by date Sort by votes
Where is the End Sub ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886
 
Upvote 0 Downvote
Don't know why it's not there, but I'm getting the same error when it is in. Is it because it is trying to install the printer on the server it is being run on?

Can anybody point me on the direction of the printer being installed to the computer the site is being accessed from?

TIA,
Jamie
 
Upvote 0 Downvote
Post more script lines. How is it called?
 
Upvote 0 Downvote
I am calling it simply by using

<%MapPrinter()%>

Apologies if I'm missing something really obvious, I only learnt VBScript last week, I'm now trying to translate to ASP and falling at the first hurdle!
 
Upvote 0 Downvote
Surely incorrect. One possible call would be.
[tt] <body onload="MapPrinter">[/tt]
 
Upvote 0 Downvote
It didn't throw up an error :) But it's not creating a printer...
 
Upvote 0 Downvote
Due you have On Error Resume Next in the script?

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]
 
Upvote 0 Downvote
I do now, put it ahead of the Sub. Made no difference with the code as it is.
 
Upvote 0 Downvote
What code? Why waste members' time for not posting sufficient lines?
 
Upvote 0 Downvote
As I posted above, with the single line modification that was suggested. Apologies if that wasn't clear enough.
 
Upvote 0 Downvote
[tt]
<html>
<head>
<script language="VBScript" type="text/vbscript">
<!--'
Sub MapPrinter
Dim netPrinter, UNCpath
UNCpath = "\\casper\HPLaserJet4"
Set netPrinter = CreateObject("WScript.Network")
netPrinter.AddWindowsPrinterConnection UNCpath
end sub
'-->
</script>
</head>
<body onload="MapPrinter"></body>
</html>
[/tt]
 
Upvote 0 Downvote
That's doing nothing either, although still no errors. How can I call another procedure to print some text just to check that the ASP is working properly on my IIS?
 
Upvote 0 Downvote
<html>
<head>
<script language="VBScript" type="text/vbscript">
<!--'
Sub MapPrinter
Dim netPrinter, UNCpath
MsgBox "Look at me! The function executed!"
UNCpath = "\\casper\HPLaserJet4"
Set netPrinter = CreateObject("WScript.Network")
netPrinter.AddWindowsPrinterConnection UNCpath
end sub
'-->
</script>
</head>
<body onload="MapPrinter"></body>
</html>

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]
 
Upvote 0 Downvote
If not even a prompt appears, it proves you have to change internet/intranet security zone setting on "Initialize and script ActiveX marked as unsafe" to "prompt" as a compromise concessing partial security measure or you have to look into hta for intranet with fully trustable admin.
 
Upvote 0 Downvote
It shows the message box, but bottom left it indicates an error still (next to Done):

"ActiveX component can't create object: 'WScript.Network'"

I am running Windows XP, so I have the latest WSH?
 
Upvote 0 Downvote
Remember that you want the printer to map on the user's computer and not the server.

For the purposes of mapping the printer, just ignore everything inside the ASP script delimitter tags: [highlight]<% %>[/highlight]

In fact, those guys above have the right idea... for testign purposes just make a plain HTML page with no ASP in it... then if you need ASP for server-side logic you can integrate the two after this bit of client-side code is working.
 
Upvote 0 Downvote
I've copied EBGreen's code exactly and now saved it as a .htm rather than .asp, but still gives the ActiveX error.

It was causing much confusion in the office, none of us have any such experience, so wondered where the client and server runtimes were. I have allowed "Active content to run in files..." in IE, but don't particularly want to have to do this across the whole site. Another option suggested was to have them download a vbs file and simply run it themselves, however the boss said it must be stealth, users can't be trusted with anything...
 
Upvote 0 Downvote
But your security settings prevent stealth changes?
 
Upvote 0 Downvote
I didn't know if it was them not allowing the ActiveX to run properly, that's the only thing I can think of. I've just re-read my post, it was a rather long-winded way of saying I just want one click to install a printer from a site :)

Can anybody shed light on the ActiveX error?
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

shilpa2002
  • Locked
  • Question
how to copy data from two excel workbooks into third. merging data based on common field
Replies
3
Views
230
SkipVought
S
svkroy
  • Locked
  • Question
Looking for help to automate web site with VBScript
Replies
2
Views
144
iambob
iambob
rodia87
  • Locked
  • Question
help with script not showing printer name and port
Replies
3
Views
142
rodia87
rodia87
Gary Ray
  • Locked
  • Question
VB Script opening Edge Webpage 1
Replies
3
Views
975
Rick998
Rick998
The Rev
  • Locked
  • Question
VBScript to copy cell data from MSWord table to Excel based on value of cell
Replies
0
Views
69
The Rev
The Rev

Part and Inventory Search

Sponsor

Back
Top