Help please :) should be an easy fix

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Help please :) should be an easy fix

Logged in as: Guest

arrSession:exec spGetSession 2,2,62531

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Help please :) should be an easy fix
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Help please :) should be an easy fix - 7/21/2008 1:57:23 AM

bcackerman

Posts: 2
Score: 0
Joined: 7/21/2008
Status: offline

So I created this script shown below that adds a printer as a default if you click on it. It works perfectly if the file is on a users local computer but once I put it on the webserver and go to the address using port 8080 it won't work and give me the error I created.

What's wrong?

thanks for your time,
Bruce

<head>
<SCRIPT LANGUAGE="VBScript">
Function connect(printer)
   On Error Resume Next
       
       strUNCPrinter = "\\cpowst01\" & printer
       
       Set objNetwork = CreateObject("WScript.Network")
       objNetwork.AddWindowsPrinterConnection strUNCPrinter

If Err <> 0 Then
     MsgBox "The selected printer " & printer & " could not be connected. Please contact the helpdesk (x. 2750) for assistance in connecting this printer", 0, "Connection Error"
       Else 
           myVar = MsgBox("You have been connected to the selected printer. Do you wish to set this as your default printer?", vbYesNo, "Connection Status")
           If myVar = 6 Then
               objNetwork.SetDefaultPrinter strUNCPrinter
               MsgBox printer & " is now your default printer", vbOKOnly, "Connection Status"
           Else
               MsgBox printer & " is now connected", vbOKOnly, "Connection Status"
           End If
       End If
       Return false
End Function
</SCRIPT>
</head>
<body background="3rdFloorSouth.jpg" style="background-repeat: no-repeat; background-position:top;">
<font size="5" color="red">
<BR>
<br>
<BR>
<BR>
1. <button onClick="connect('wcc3sp1')">wcc3sp1</button>Black/White    <br>

2. <button onClick="connect('wcc3sp2')">wcc3sp2</button>Black/White    <br>

3. <button onClick="connect('wcc3sp3')">wcc3sp3</button>Black/White    <br>

4. <button onClick="connect('wcc3sp4')">wcc3sp4</button>Color    <br>

5. <button onClick="connect('wcc3sc6')">wcc3sc6</button>B/W OCE/Copier    <br>

</body>
</html>

Post #: 1

RE: Help please :) should be an easy fix - 7/21/2008 4:11:42 AM

bcackerman

Posts: 2
Score: 0
Joined: 7/21/2008
Status: offline

So i figured the problem is that I need to create an object for this line

[CODE]Set objNetwork = CreateObject("WScript.Network")[/CODE]

How do I create that object?? thanks

(in reply to bcackerman)

Post #: 2

RE: Help please :) should be an easy fix - 7/21/2008 2:06:12 PM

TomRiddle

Posts: 190
Score: 4
Joined: 2/7/2008
Status: online

Works for me run on XP SP2 as local admin

Though when I remove "on error resume next" I found this line made error.

Return false

I don't think you need it.

Cheers

(in reply to bcackerman)

Post #: 3

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 >> Help please :) should be an easy fix

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