为什么这台打印机VBScript运行得如此之慢

Question

这个vBscript似乎将永远消失。它的作用是根据计算机名称查询打印服务器以获取打印机列表。例如，如果计算机名称为“SLS-201-A001”，则打印机名称可能为“SLS-P201-D

'Key vars
printServer = "PRINT_SERVER"

Set WshNetwork = CreateObject("WScript.Network")

'Extract computer name and take the first two fields
cNameParts=Split(WshNetwork.ComputerName,"-")
printerNamePrefix = cNameParts(0) + "-P" + cNameParts(1)

Set objWMIService = GetObject("winmgmts:\\" & printServer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer WHERE Name LIKE '" + printerNamePrefix + "-%'",,48)

printerName = ""

For Each printerObj in colItems
    printerName = printerObj.Name
Next


PrinterPath = "\\SHARE\" + printerName
MsgBox "Adding " + PrinterPath
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter PrinterPath