Alan,

Thank you for your answer to my post. I have just one more question: how can
I add a local port first ? I have seen examples on how to do it, but only on
IP ports. I have not seen redirection ports - like my case. I have tried the
command you showed in your last post, but it didn't work out. My version of
prncfg is the one that comes with Windows 2003 resource kit that is available
for download in microsoft web page.

Greatings,

Guys... Mr. Alan (thanks Alan) gave me part of the solution. He pointed to me
that I had to create the port first. Then, God gave me a light to find the
rest of the solution to my problem. Since there is not an easy way to create
a port, I decided to create it directly in the registry. I share with you the
script that is working! Yes!!!

strkey = "Software\Microsoft\Windows NT\CurrentVersion\Ports"
strType = "REG_SZ"
strComputer = "."
set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colPrinters =  objWMIService.ExecQuery ("Select * from Win32_Printer")
For Each objPrinter in colPrinters
   If objPrinter.PortName = "\\sieci_sso01\BrotherH" Then
      strValue = "\\stici_sso01\BrotherH"
      call createport(strkey, strvalue, strtype)
      objPrinter.PortName = strValue
      objPrinter.Put_
   End If
Next

Function createport(key, value, type)
 Set objService = objWMIService.ExecQuery ("Select * from Win32_Service
Where Name = 'Spooler'")
 For Each objService in ObjService
    objService.StopService()
      const HKEY_LOCAL_MACHINE=&H80000002
      set regkey=GetObject("winmgmts:root\default:StdRegProv")
      createkey=regkey.setstringvalue(HKEY_LOCAL_MACHINE,Key,Value,"")
      set regkey=nothing
    objService.StartService()
 Next
End Function