Fejl på printer installation Windows XP fra USB

Hej Eksperter.

Har nedenstående kode, hvilket skal benyttes til installation af en printer fra usbpind. Hvor den opretter TCP/IP Porte og installation af driver. AUTOMATISK!!

Men fejler under installation med Arguments invalid.

Nogen der kan se fejlen..

Samt kan man ændre nedstående så drevbogstavet ingen indflydelse
har?

Koden er lånt på nettet og modificeret.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True

Install "10.120.28.130"


sub Install(strIP)
    InstallPrinterPort strIP
end Sub


strBasePrinter = "Printer P3015"
strPrinterName = "HP Laserjet P3015 PCL 6"
strINFPath = "T:\Scripts\p3015\hpc3010c.inf"
strIPPort = "IP_10.120.28.228"
Set objShell = CreateObject("WScript.Shell")
strCommand = "cmd /c rundll32 printui.dll,PrintUIEntry /if /b """ & strBasePrinter & """ /f " & strINFPath & " /r """ & strIPPort & """ /m """ & strPrinterName & """ & /Z"
objShell.Run strCommand, 1, True

Sub InstallPrinterPort(strIP)
   
    Set colInstalledPorts =  objWMIService.ExecQuery _
        ("Select Name from Win32_TCPIPPrinterPort")
    For each objPort in colInstalledPorts
        If objPort.Name="IP_" & strIP then exit sub
    Next
    Set objNewPort = objWMIService.Get _
        ("Win32_TCPIPPrinterPort").SpawnInstance_
    objNewPort.Name = "IP_" & strIP
    objNewPort.Protocol = 1
    objNewPort.HostAddress = strIP
    objNewPort.PortNumber = "9100"
    objNewPort.SNMPEnabled = False
    objNewPort.Put_
end Sub