Windows Vista Forums
Vista Forums Home Join Vista Forums Windows 7 Forum Vista Tutorials Tags
Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks.

Go Back   Vista Forums > Misc Newsgroups > VB Script
Reload this Page HTML and VBscript printer management page
Join Now FAQ Search Today's Posts Mark Forums Read

Vista - HTML and VBscript printer management page

Reply
 
Old 01-12-2009   #1 (permalink)
paultown


 
 

HTML and VBscript printer management page
Hi,

I trying to create a HTM printer management page that adds or removes
printers via VBscripting and downloaded some code but doesn't seems to work.
I am using XP SP2 OS and IE7. Below is the code I have and if you could shed
any light on as to why it doesn't work it would be great!


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Printer Management Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<SCRIPT LANGUAGE="VBScript">

Function delPrint(pname)
Set objNetwork = CreateObject("WScript.Network")
confDel = msgbox ("Do you want to remove " & pname & " ?",vbYesNo)
If confDel = 6 Then
objNetwork.RemovePrinterConnection pname
msgbox (pname & " Has Been Removed.")
Else
msgbox (pname & " Will Not Be Removed.")
End If
End Function


Function addPrint(pname)
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection pname
mkDef = msgbox ("Do you want " & pname & " to be your default printer?",
292, "Default Printer Status")
If mkDef = 6 Then
WshNetwork.SetDefaultPrinter pname
msgbox ("Printer " & pname & " Installed As Default Successfully.")
Else
msgbox ("Printer " & pname & " Installed Successfully.")
End If
End Function

</SCRIPT>
<body>
<p> </p>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top" bgcolor="#999999">
<table width="600" border="0" cellspacing="1" cellpadding="0">
<tr bgcolor="#CCCCCC">
<td colspan="4"><table width="600" border="0" cellspacing="0"
cellpadding="0">
<tr>
<td width="330"><strong><font size="1" face="helvetica,
verdana, arial"> Description</font></strong></td>
<td width="200"><strong><font size="1" face="helvetica,
verdana, arial"> Printer
Name (Print Queue)</font></strong></td>
<td width="70"><strong><font size="1" face="helvetica,
verdana, arial"> </font></strong></td>
<td width="100"> </td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="330"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> Helen's Printer</font></td>
<td width="200"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> LDN-PRT1</font></td>
<td width="70" bgcolor="#FFFFFF">
<div align="center"><font size="1" face="Verdana, Arial,
Helvetica, sans-serif">
<input type="button" name="Button" value="Add"
style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=addPrint('\\ldn-ps01\ldn-prt1')>
</font></div>
</td>
<td width="100" bgcolor="#FFFFFF"><div align="center"><font
size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="button" name="Button3" value="Remove"
style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=delPrint('\\ldn-ps01\ldn-prt1')>
</font></div>
</td>
</tr>
<tr bgcolor="#EBEBEB">
<td width="330"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> Aba's Printer
DEPT. PRINTER</font></td>
<td width="200"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> LDN-PRT2</font></td>
<td width="70">
<div align="center"><font size="1" face="Verdana, Arial,
Helvetica, sans-serif">
<input type="button" name="Button2" value="Add"
style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=addPrint('\\ldn-ps01\ldn-prt2')>
</font></div>
</td>
<td width="100"><div align="center"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif">
<input type="button" name="Button24" value="Remove"
style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=delPrint('\\ldn-ps01\ldn-prt2')>
</font></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="330"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> Traders row 3 (Next to Phil)</font></td>
<td width="200"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> LDN-PRT3</font></td>
<td width="70">
<div align="center"><font size="1" face="Verdana, Arial,
Helvetica, sans-serif">
<input type="button" name="Button22" value="Add"
style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=addPrint('\\ldn-ps01\ldn-prt3')>
</font></div>
</td>
<td width="100"><div align="center"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif">
<input type="button" name="Button222" value="Remove"
style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=delPrint('\\ldn-ps01\ldn-prt3')>
</font></div>
</td>
</tr>
<tr bgcolor="#EBEBEB">
<td width="330"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> Traders row 4 (Next to Navroz)</font></td>
<td width="200"><font size="1" face="Verdana, Arial, Helvetica,
sans-serif"> LDN-PRT4</font></td>
<td width="70">
<div align="center"><font size="1" face="Verdana, Arial,
Helvetica, sans-serif">
<input type="button" name="Button23" value="Add"
style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=addPrint('\\ldn-ps01\ldn-prt4')>
</font></div>
</td>
<td width="100"><div align="center"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif">
<input type="button" name="Button223" value="Remove"
style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:8pt; color:#000000; background-color:#E8E8E8;"
onClick=delPrint('\\ldn-ps01\ldn-prt4')>
</font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
My System SpecsSystem Spec
Old 01-14-2009   #2 (permalink)
Al Dunbar


 
 

Re: HTML and VBscript printer management page

"paultown" <paultown@xxxxxx> wrote in message
news:65982A20-ED9A-499C-A260-F1423135AC6C@xxxxxx
Quote:

> Hi,
>
> I trying to create a HTM printer management page that adds or removes
> printers via VBscripting and downloaded some code but doesn't seems to
> work.
> I am using XP SP2 OS and IE7. Below is the code I have and if you could
> shed
> any light on as to why it doesn't work it would be great!
Perhaps if you would explain what it is doing wrong, then we wouldn't all
have to test it ourselves to find this out.

/Al
Quote:

>
>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
> <html>
> <head>
> <title>Printer Management Page</title>
> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> </head>
> <SCRIPT LANGUAGE="VBScript">
>
> Function delPrint(pname)
> Set objNetwork = CreateObject("WScript.Network")
> confDel = msgbox ("Do you want to remove " & pname & " ?",vbYesNo)
> If confDel = 6 Then
> objNetwork.RemovePrinterConnection pname
> msgbox (pname & " Has Been Removed.")
> Else
> msgbox (pname & " Will Not Be Removed.")
> End If
> End Function
>
>
> Function addPrint(pname)
> Set WshNetwork = CreateObject("WScript.Network")
> WshNetwork.AddWindowsPrinterConnection pname
> mkDef = msgbox ("Do you want " & pname & " to be your default printer?",
> 292, "Default Printer Status")
> If mkDef = 6 Then
> WshNetwork.SetDefaultPrinter pname
> msgbox ("Printer " & pname & " Installed As Default Successfully.")
> Else
> msgbox ("Printer " & pname & " Installed Successfully.")
> End If
> End Function
>
> </SCRIPT>
> <body>
> <p> </p>
> <table width="600" border="0" align="center" cellpadding="0"
> cellspacing="1">
> <tr>
> <td valign="top" bgcolor="#999999">
> <table width="600" border="0" cellspacing="1" cellpadding="0">
> <tr bgcolor="#CCCCCC">
> <td colspan="4"><table width="600" border="0" cellspacing="0"
> cellpadding="0">
> <tr>
> <td width="330"><strong><font size="1" face="helvetica,
> verdana, arial"> Description</font></strong></td>
> <td width="200"><strong><font size="1" face="helvetica,
> verdana, arial"> Printer
> Name (Print Queue)</font></strong></td>
> <td width="70"><strong><font size="1" face="helvetica,
> verdana, arial"> </font></strong></td>
> <td width="100"> </td>
> </tr>
> </table>
> </td>
> </tr>
> <tr bgcolor="#FFFFFF">
> <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> Helen's Printer</font></td>
> <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> LDN-PRT1</font></td>
> <td width="70" bgcolor="#FFFFFF">
> <div align="center"><font size="1" face="Verdana, Arial,
> Helvetica, sans-serif">
> <input type="button" name="Button" value="Add"
> style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=addPrint('\\ldn-ps01\ldn-prt1')>
> </font></div>
> </td>
> <td width="100" bgcolor="#FFFFFF"><div align="center"><font
> size="1" face="Verdana, Arial, Helvetica, sans-serif">
> <input type="button" name="Button3" value="Remove"
> style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=delPrint('\\ldn-ps01\ldn-prt1')>
> </font></div>
> </td>
> </tr>
> <tr bgcolor="#EBEBEB">
> <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> Aba's Printer
> DEPT. PRINTER</font></td>
> <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> LDN-PRT2</font></td>
> <td width="70">
> <div align="center"><font size="1" face="Verdana, Arial,
> Helvetica, sans-serif">
> <input type="button" name="Button2" value="Add"
> style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=addPrint('\\ldn-ps01\ldn-prt2')>
> </font></div>
> </td>
> <td width="100"><div align="center"><font size="1" face="Verdana,
> Arial, Helvetica, sans-serif">
> <input type="button" name="Button24" value="Remove"
> style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=delPrint('\\ldn-ps01\ldn-prt2')>
> </font></div>
> </td>
> </tr>
> <tr bgcolor="#FFFFFF">
> <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> Traders row 3 (Next to Phil)</font></td>
> <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> LDN-PRT3</font></td>
> <td width="70">
> <div align="center"><font size="1" face="Verdana, Arial,
> Helvetica, sans-serif">
> <input type="button" name="Button22" value="Add"
> style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=addPrint('\\ldn-ps01\ldn-prt3')>
> </font></div>
> </td>
> <td width="100"><div align="center"><font size="1" face="Verdana,
> Arial, Helvetica, sans-serif">
> <input type="button" name="Button222" value="Remove"
> style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=delPrint('\\ldn-ps01\ldn-prt3')>
> </font></div>
> </td>
> </tr>
> <tr bgcolor="#EBEBEB">
> <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> Traders row 4 (Next to Navroz)</font></td>
> <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> sans-serif"> LDN-PRT4</font></td>
> <td width="70">
> <div align="center"><font size="1" face="Verdana, Arial,
> Helvetica, sans-serif">
> <input type="button" name="Button23" value="Add"
> style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=addPrint('\\ldn-ps01\ldn-prt4')>
> </font></div>
> </td>
> <td width="100"><div align="center"><font size="1" face="Verdana,
> Arial, Helvetica, sans-serif">
> <input type="button" name="Button223" value="Remove"
> style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> font-size:8pt; color:#000000; background-color:#E8E8E8;"
> onClick=delPrint('\\ldn-ps01\ldn-prt4')>
> </font></div>
> </td>
> </tr>
> </table>
> </td>
> </tr>
> </table>
> </body>
> </html>
My System SpecsSystem Spec
Old 01-15-2009   #3 (permalink)
paultown


 
 

Re: HTML and VBscript printer management page
Nothing happens, the page and buttons are displayed correctly however when
you push the buttons (either add or remove) nothing happens. It's meant to
obviously add or remove the printer and pop up with a message box advising of
which.

"Al Dunbar" wrote:
Quote:

>
> "paultown" <paultown@xxxxxx> wrote in message
> news:65982A20-ED9A-499C-A260-F1423135AC6C@xxxxxx
Quote:

> > Hi,
> >
> > I trying to create a HTM printer management page that adds or removes
> > printers via VBscripting and downloaded some code but doesn't seems to
> > work.
> > I am using XP SP2 OS and IE7. Below is the code I have and if you could
> > shed
> > any light on as to why it doesn't work it would be great!
>
> Perhaps if you would explain what it is doing wrong, then we wouldn't all
> have to test it ourselves to find this out.
>
> /Al
>
Quote:

> >
> >
> > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
> > <html>
> > <head>
> > <title>Printer Management Page</title>
> > <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> > </head>
> > <SCRIPT LANGUAGE="VBScript">
> >
> > Function delPrint(pname)
> > Set objNetwork = CreateObject("WScript.Network")
> > confDel = msgbox ("Do you want to remove " & pname & " ?",vbYesNo)
> > If confDel = 6 Then
> > objNetwork.RemovePrinterConnection pname
> > msgbox (pname & " Has Been Removed.")
> > Else
> > msgbox (pname & " Will Not Be Removed.")
> > End If
> > End Function
> >
> >
> > Function addPrint(pname)
> > Set WshNetwork = CreateObject("WScript.Network")
> > WshNetwork.AddWindowsPrinterConnection pname
> > mkDef = msgbox ("Do you want " & pname & " to be your default printer?",
> > 292, "Default Printer Status")
> > If mkDef = 6 Then
> > WshNetwork.SetDefaultPrinter pname
> > msgbox ("Printer " & pname & " Installed As Default Successfully.")
> > Else
> > msgbox ("Printer " & pname & " Installed Successfully.")
> > End If
> > End Function
> >
> > </SCRIPT>
> > <body>
> > <p> </p>
> > <table width="600" border="0" align="center" cellpadding="0"
> > cellspacing="1">
> > <tr>
> > <td valign="top" bgcolor="#999999">
> > <table width="600" border="0" cellspacing="1" cellpadding="0">
> > <tr bgcolor="#CCCCCC">
> > <td colspan="4"><table width="600" border="0" cellspacing="0"
> > cellpadding="0">
> > <tr>
> > <td width="330"><strong><font size="1" face="helvetica,
> > verdana, arial"> Description</font></strong></td>
> > <td width="200"><strong><font size="1" face="helvetica,
> > verdana, arial"> Printer
> > Name (Print Queue)</font></strong></td>
> > <td width="70"><strong><font size="1" face="helvetica,
> > verdana, arial"> </font></strong></td>
> > <td width="100"> </td>
> > </tr>
> > </table>
> > </td>
> > </tr>
> > <tr bgcolor="#FFFFFF">
> > <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> Helen's Printer</font></td>
> > <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> LDN-PRT1</font></td>
> > <td width="70" bgcolor="#FFFFFF">
> > <div align="center"><font size="1" face="Verdana, Arial,
> > Helvetica, sans-serif">
> > <input type="button" name="Button" value="Add"
> > style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=addPrint('\\ldn-ps01\ldn-prt1')>
> > </font></div>
> > </td>
> > <td width="100" bgcolor="#FFFFFF"><div align="center"><font
> > size="1" face="Verdana, Arial, Helvetica, sans-serif">
> > <input type="button" name="Button3" value="Remove"
> > style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=delPrint('\\ldn-ps01\ldn-prt1')>
> > </font></div>
> > </td>
> > </tr>
> > <tr bgcolor="#EBEBEB">
> > <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> Aba's Printer
> > DEPT. PRINTER</font></td>
> > <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> LDN-PRT2</font></td>
> > <td width="70">
> > <div align="center"><font size="1" face="Verdana, Arial,
> > Helvetica, sans-serif">
> > <input type="button" name="Button2" value="Add"
> > style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=addPrint('\\ldn-ps01\ldn-prt2')>
> > </font></div>
> > </td>
> > <td width="100"><div align="center"><font size="1" face="Verdana,
> > Arial, Helvetica, sans-serif">
> > <input type="button" name="Button24" value="Remove"
> > style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=delPrint('\\ldn-ps01\ldn-prt2')>
> > </font></div>
> > </td>
> > </tr>
> > <tr bgcolor="#FFFFFF">
> > <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> Traders row 3 (Next to Phil)</font></td>
> > <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> LDN-PRT3</font></td>
> > <td width="70">
> > <div align="center"><font size="1" face="Verdana, Arial,
> > Helvetica, sans-serif">
> > <input type="button" name="Button22" value="Add"
> > style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=addPrint('\\ldn-ps01\ldn-prt3')>
> > </font></div>
> > </td>
> > <td width="100"><div align="center"><font size="1" face="Verdana,
> > Arial, Helvetica, sans-serif">
> > <input type="button" name="Button222" value="Remove"
> > style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=delPrint('\\ldn-ps01\ldn-prt3')>
> > </font></div>
> > </td>
> > </tr>
> > <tr bgcolor="#EBEBEB">
> > <td width="330"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> Traders row 4 (Next to Navroz)</font></td>
> > <td width="200"><font size="1" face="Verdana, Arial, Helvetica,
> > sans-serif"> LDN-PRT4</font></td>
> > <td width="70">
> > <div align="center"><font size="1" face="Verdana, Arial,
> > Helvetica, sans-serif">
> > <input type="button" name="Button23" value="Add"
> > style="width:40; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=addPrint('\\ldn-ps01\ldn-prt4')>
> > </font></div>
> > </td>
> > <td width="100"><div align="center"><font size="1" face="Verdana,
> > Arial, Helvetica, sans-serif">
> > <input type="button" name="Button223" value="Remove"
> > style="width:70; font-family:Verdana, Arial, Helvetica, sans-serif;
> > font-size:8pt; color:#000000; background-color:#E8E8E8;"
> > onClick=delPrint('\\ldn-ps01\ldn-prt4')>
> > </font></div>
> > </td>
> > </tr>
> > </table>
> > </td>
> > </tr>
> > </table>
> > </body>
> > </html>
>
>
>
My System SpecsSystem Spec
Reply

« Automate file download from Microsoft Update | Tail Logfile with WMI »
Thread Tools


Similar Threads
Thread Forum
problem download HTML in VBScript VB Script
Scripting.FileSystemObject with VBScript in HTML page VB Script
Some solutions I have constructed (HTA HTML vbScript) VB Script
Exchange Management Shell Command from vbscript PowerShell
working on html objects using HTML DOM, VBscript VB Script


Vista Forums is an independent web site and has not been authorized,
sponsored, or otherwise approved by Microsoft Corporation.
"Windows Vista", the Start Orb, and related materials are trademarks of Microsoft Corp.
© Designer Media Ltd
Contact Us - Windows Vista Forums - Archive - Privacy - Legal - Top

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46