Code:
On Error Resume Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
compname = UCase(WshNetwork.ComputerName)
sub removenetworkprinters
set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
uncpath = oPrinters.Item(i+1)
if Left(uncpath, 2) = "\\" then
WshNetwork.RemovePrinterConnection uncpath, true, true
end if
Next
end sub
sub addprinter(partname, printpath)
if Instr(compname, partname) <> 0 then
WshNetwork.AddWindowsPrinterConnection(printpath)
end if
end sub
sub makedefault(partname, printpath)
if Instr(compname, partname) <> 0 then
WshNetwork.SetDefaultPrinter printpath
end if
end sub
''''''''''''''''''''''''''''''''
' Main Block
''''''''''''''''''''''''''''''''
addnetworkprinters
addprinter "class1w-a", "\\class1w-b\class1w-690"
There, that looks a lot better. 
There are numerous things wrong with that code. The sub-routines removenetworkprinters and makedefault go unused, while a referenced sub, addnetworkprinters, doesn't exist.
As far as I can tell, though, the following is all you really need:
Code:
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\class1w-b\class1w-690"
Note, though, that this code will only work under Windows 2000/XP. Windows 9x/Me require that you specify the printer driver in addition to its location. For the documentation and examples (Both 2000/XP and 9x/Me) on the AddWindowsPrinterconnection function, see http://msdn.microsoft.com/library/de...connection.asp
Hope you come right.