Oprettelse mange printer porte på en 2003 server via WMI + VBS

Hej Folkens

Små problemer igen.
Jeg har "lavet" dette lille script som kan oprette Printer porte på w2k3 server, mit problem er bare at jeg får en  "SWbemObjectEx:  Access denied  " error når jeg tester på w2k3 server, men det hele køre fint på winxp!

Kode start .............................

Hostname = (WScript.Arguments.Item(0))                ' Get parameter 0 Hostname
Fpr = (WScript.Arguments.Item(1))                ' Get parameter 1 Firste Portnr
Lpr = (WScript.Arguments.Item(2))                ' Get Paremeter 2 Last Portnr

For Count  = Fpr to Lpr

        Set objWMIService = GetObject("winmgmts:")
        Set objNewPort = objWMIService.Get _("Win32_TCPIPPrinterPort").SpawnInstance_
        objNewPort.Name = Hostname&Count   
        objNewPort.Protocol = 1
        objNewPort.Queue = "Queue"
        objNewPort.HostAddress = Hostname&Count   
        objNewPort.PortNumber = "9100"
        objNewPort.SNMPEnabled = True
        objNewPort.SNMPDevIndex = 1
        objNewPort.SNMPCommunity = "public"
        objNewPort.Put_
       
Next






kode stop ..............................