Druckertreiber Einstellungen per Script

strComputer = "."  
    dip = InputBox("IP-Adresse eingeben: " &VbCRLF&VbCRLF&_  
                     "z.B. 192.168.5.180" , "IP-Adresse")  

dname = InputBox("Bitte Druckername eingeben: " &VbCRLF&VbCRLF&_  
                     "z.B. e-2505 Farbe" , "Druckername")  

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

Install dip

' Start the install of the printer  

sub Install(strIP)
    InstallPrinterPort strIP
end Sub

Sub InstallPrinterPort(strIP)
' Erst prüfen ob der Port existiert   #########################  
    Set colInstalledPorts =  objWMIService.ExecQuery _
        ("Select Name from Win32_TCPIPPrinterPort")  
    For each objPort in colInstalledPorts
        If objPort.Name="IP_" & strIP then exit sub ' We have a result, so no need to add port  
    Next

' Neuen IP-Port erstellen   ###################################  
    Set objNewPort = objWMIService.Get _
        ("Win32_TCPIPPrinterPort").SpawnInstance_  
    objNewPort.Name = strIP
    objNewPort.Protocol = 1
    objNewPort.HostAddress = strIP
    objNewPort.PortNumber = "9100"  
    objNewPort.SNMPEnabled = False
    objNewPort.Put_
end Sub


'###################################################### 64Bit-Treiber inst.   
strBasePrinter = dname
strPrinterName = "Toshiba Universal Printer 2"  
strINFPath = "\Service-Tool\64bit\eSf6u.inf"  
strIPPort = dip
Set objShell = CreateObject("WScript.Shell")  
strCommand = "cmd /c c:\\windows\system32\rundll32 printui.dll,PrintUIEntry /if /b """ & strBasePrinter & """ /f " & strINFPath & " /r """ & strIPPort & """ /m """ & strPrinterName & """ & /Z" ' ,0,True  
objShell.Run strCommand, 1, True