Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
On Error Resume Next
Set A = WMI.ExecQuery("SELECT * FROM Win32_PrinterDriver")
For Each B In A
    WScript.Echo B.Name
    WScript.Echo B.ConfigFile
    WScript.Echo B.DataFile
    Astr = Join(B.DependentFiles, vbCrLf)
    WScript.Echo Astr
    WScript.Echo B.DriverPath
    WScript.Echo B.FilePath
    WScript.Echo B.HelpFile
    WScript.Echo B.InfName
    WScript.Echo
Next