Dim objRoot, objConnection, objCommand, objRSet
Dim intNumRecords, strDomain, strLog, arrTemp, strTemp
Dim objFS, objFile, objWShell

strLog = "Printers_List.log"
Set objRoot = GetObject("LDAP://RootDSE")
strDomain = objRoot.Get("DefaultNamingContext")
Set objRoot = Nothing
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
strAttributes = "printerName,uNCName,portName,driverName,serverName,shortServerName,Location"
objCommand.CommandText = "<LDAP://" & strDomain & ">;(objectCategory=printQueue);" & strAttributes & ";Subtree"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
On Error Resume Next
Set objRSet = objCommand.Execute
If Err.Number = 0 Then
    intNumRecords = objRSet.RecordCount
    If intNumRecords > 0 Then
        Set objFS = CreateObject("Scripting.FileSystemObject")
        strLog = objFS.BuildPath(objFS.GetParentFolderName(WScript.ScriptFullName), strLog)
        Set objFile = objFS.CreateTextFile(strLog, True)
        objFile.WriteLine "Обнаружено записей: " & intNumRecords & vbNewLine & "==="
        objRSet.MoveFirst
        Do Until objRSet.EOF
            For i = 0 To objRSet.Fields.Count - 1
                strTemp = vbNullString
                If IsArray(objRSet.Fields(i)) Then
                    arrTemp = objRSet.Fields(i)
                    For j = 0 To UBound(arrTemp)
                        strTemp = strTemp & arrTemp(j) & ";"
                        If Err.Number <> 0 Then Err.Clear
                    Next
                    Erase arrTemp
                Else
                    strTemp = objRSet.Fields(i).Value
                    If Err.Number <> 0 Then Err.Clear
                End If
                objFile.WriteLine objRSet.Fields(i).Name & " = " & strTemp
            Next
            objFile.WriteLine "---"
            objRSet.MoveNext
        Loop
        objFile.Close
        Set objFile = Nothing
        Set objFS = Nothing
        Set objWShell = CreateObject("WScript.Shell")
        objWShell.Run "notepad.exe " & strLog, 1
        Set objWShell = Nothing    
    Else
        WScript.Echo "Ничего не обнаружено."
    End If
Else
    WScript.Echo "Ошибка выполения запроса: " & Err.Number & vbNewLine & Err.Description
    Err.Clear
End If
Set objRSet = Nothing
On Error GoTo 0
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
WScript.Quit 0

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPrn = objWMIService.ExecQuery("Select * from Win32_Printer")

For each objPrinter in colPrn
    Wscript.Echo "Local Name: " & objPrinter.Name
    Wscript.Echo "Share Name: " & objPrinter.ShareName
    Wscript.Echo "Server Name: " & objPrinter.ServerName
    Wscript.Echo "Shared? : " & objPrinter.Shared
    Wscript.Echo "Status Info: " & objPrinter.StatusInfo
    Wscript.Echo "System Name: " & objPrinter.SystemName
Next

Dim objRoot, objConnection, objCommand, objRSet
Dim intNumRecords, strDomain, strPrinters

'Запись данных в фаил 
Dim fso, txtfile, txtfile1 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set txtfile  =fso.OpenTextFile("C:\PrintersAD.nmp", 8, True) 

Set objRoot = GetObject("LDAP://RootDSE")
strDomain = objRoot.Get("DefaultNamingContext")
Set objRoot = Nothing
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "<LDAP://" & strDomain & ">;(objectClass=printqueue);Name;Subtree"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30
Set objRSet = objCommand.Execute
intNumRecords = objRSet.RecordCount
If intNumRecords > 0 Then
    'strPrinters = "Обнаружено записей: " & intNumRecords & vbNewLine & "===" & vbNewLine
    objRSet.MoveFirst
    Do Until objRSet.EOF
        'strPrinters = strPrinters & objRSet.Fields("Name").Value & vbNewLine
    txtfile.WriteLine(objRSet.Fields("Name").Value) 
        objRSet.MoveNext
    Loop
    'Wscript.Echo strPrinters
Else
    'WScript.Echo "Ничего не обнаружено."
End If
txtfile.Close 

'Найдём принтер по умолчанию 

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set colInstalledPrinters= objWMIService.ExecQuery ("Select * from Win32_Printer")

For Each objPrinter In colInstalledPrinters

  if (UCase(objPrinter.Default)="ИСТИНА") or (UCase(objPrinter.Default)="TRUE") then

    Set txtfile1 =fso.OpenTextFile("C:\DefaultPrinter.nmp", 8, True) 
    txtfile1.WriteLine(objPrinter.Name) 

    'Wscript.Echo "Обнаружен принтер по умолчанию " & objPrinter.Name & _
    '                  "  " & objPrinter.PortName & "  " &  objPrinter.Default
  End if

Next
txtfile1.Close 

Set objRSet = Nothing
Set objCommand = Nothing
Set objConnection = Nothing
WScript.Quit 0