CreateBRMConfigXML.vbs

strComputer = "."

quote= chr(34)

XMLtag="<?xml version=” + quote + "1.0" + quote + " encoding=" + quote + "UTF-8" + quote + " standalone=" + quote + "yes" + quote + "?>"

drvold="<DRV old=" +quote

newdrv=quote + " new=" +quote +"Generic / Text Only" + quote + "/>"

Set objWMIService = GetObject("winmgmts:" & strComputer & "rootCIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_PrinterDriver",,48)

Wscript.Echo XMLtag
Wscript.Echo "<BrmConfig>"
Wscript.Echo "<DriverMap>"

For Each objItem in colItems

'Wscript.Echo "<DRV old=" &quote & ExtractDriverName(objitem.Name) &quote & " new=" &quote & "Generic / Text Only" &quote & "/>"
Wscript.Echo drvold & ExtractDriverName(objitem.Name) &newdrv

Next

Wscript.Echo "</DriverMap>"
Wscript.Echo "</BrmConfig>"

Wscript.Quit

Function ExtractDriverName(dName)
ExtractDriverName = Left(dName,(InStr(dName,",")-1))
End Function