Вопросы Теги

VBScript:Verifying, если доля принтера существует

Microsoft дает Вам приседание, бесплатно. Можно получить SCOM, текущую версию МАМЫ. У них есть часть его, которая выделена для входа аудита. Существует много других коммерческих продуктов также. Вы могли прокрутить свое собственное с NTSysLog и сервером системного журнала, работая коммерческий или бесплатное программное обеспечение на Linux или Windows. Каков Ваш бюджет?

Второй вопрос - Какова Ваша фактическая цель с аудитом? Вы говорите "сбор и интерпретацию", таким образом, это кажется, что Вы ожидаете, что кто-то или будет проводить некоторое время с этими журналами или реагировать на основе предупреждений. Можно ли изложить в деталях то, чем будет запланированное использование?

0
задан 17 July 2012 в 18:21
1 ответ

Следующий сценарий VBScript использует WMI для подключения к ПК и перечисляет все очереди печати на вашем локальном компьютере с Windows. Чтобы запросить удаленную машину, просто введите имя этой машины вместо . в переменной strComputer . 

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")

For Each objPrinter in colPrinters
    If objPrinter.Attributes And 64 Then 
        strPrinterType = "Local"
    Else
        strPrinterType = "Network"
    End If
    Wscript.Echo objPrinter.Name & " -- " & strPrinterType
Next

Чтобы удалить принтер с машины, используйте что-то вроде: 

Set objNet = CreateObject("WScript.Network")
objNet.RemovePrinterConnection "\\SERVER\Printer"

Для получения дополнительной информации см. MS TechNet: Управление сетевыми принтерами .

Примите участие Имейте в виду, что некоторые принтеры могут быть установлены на уровне системы и доступны для всех пользователей в любое время, но на клиентских ПК очереди могут быть установлены только в профиле пользователя и доступны только для их учетной записи, когда они вошли в систему.

1
ответ дан 4 December 2019 в 21:43

Теги

Похожие вопросы