Windows 7 - VB Script for Installing Network Printers not working

I have this VB script for installing network printers for Windows XP, but for some reason this is not working with Windows 7(64 bit), can anyone help. I am just wondering Prnadmin.dll works only for xp ???
<CENTER><INPUT value="Install Printers" type=button name=cmdPrinters></CENTER>
<SCRIPT language=VBScript>
<!--
Sub cmdPRinters_OnClick()
Dim WshShell, Result, oPort, oMaster, oPrinter
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "regsvr32 /s \\<servername>\Tools\Prnadmin.dll",1,TRUE
Set WshNetwork = CreateObject("WScript.Network")
Set oPort = CreateObject("Port.Port.1")
Set oMaster = CreateObject("PrintMaster.PrintMaster.1")
Set oPrinter = CreateObject("Printer.Printer.1")
'********* Fiery Color Copier (x1) **********'
If Fiery.Checked Then

oPort.PortName = "\\ikon660\print"
oPort.PortType = 3
oMaster.PortAdd oPort
Set oPrinter = CreateObject("Printer.Printer.1")
oPrinter.PrinterName = "Fiery 660 (Color Copier)"
oPrinter.DriverPath = "\\<<servername>\apps\Printers\Fiery 660"
oPrinter.InfFile = "\\<servername>apps\Printers\Fiery 660\oemsetup.inf"
oPrinter.DriverName = "Fiery PRO80 65-55C-KM PS3.0"
oPrinter.PortName = "\\ikon660\print"
oMaster.PrinterAdd oPrinter

End If