Вопросы Теги

Сценарий для устанавливания принтера по умолчанию для определенного пользователя

У нас есть несколько принтеров, установленных для наших лабораторий. У нас есть специальная учетная запись тестирования в AD, который не может распечатать в комнату, тесты принимаются для защиты персональных данных.

Мне нужен сценарий входа в систему, который установит другой принтер как принтер по умолчанию на основе того, если этот пользователь войдет в систему.

Это - то, что мы должны теперь установить принтер по умолчанию OU. Я хотел бы добавить строку в конце для пользователя.

Set objSysInfo = CreateObject("ADSystemInfo")
strName = objSysInfo.ComputerName

arrComputerName = Split(strName, ",")
arrOU = Split(arrComputerName(1), "=")
strComputerOU = arrOU(1) 

Set objNetwork = CreateObject("WScript.Network")

Select Case strComputerOU
Case "OU for Printer 1"

    objNetwork.SetDefaultPrinter "Printer 1"

Case "OU for Printer 2"

    objNetwork.SetDefaultPrinter "Printer 2"

Case "OU for Printer 3"

    objNetwork.SetDefaultPrinter "Printer 3"

Case "LabColorPrinter"

    objNetwork.SetDefaultPrinter "Color Printer"

Case Else
    objNetwork.SetDefaultPrinter "Printer 1"

End Select
0
задан 29 September 2014 в 22:59
1 ответ

Следующее должно соответствовать вашим требованиям, хотя тестовая учетная запись все равно может изменить принтер.

Set objSysInfo = CreateObject("ADSystemInfo")
strName = objSysInfo.ComputerName

arrComputerName = Split(strName, ",")
arrOU = Split(arrComputerName(1), "=")
strComputerOU = arrOU(1) 

Set objNetwork = CreateObject("WScript.Network")

If objNetwork.UserName = "TestUsername" Then
    objNetwork.SetDefaultPrinter "Printer X"
Else

    Select Case strComputerOU
        Case "OU for Printer 1"
            objNetwork.SetDefaultPrinter "Printer 1"

        Case "OU for Printer 2"
            objNetwork.SetDefaultPrinter "Printer 2"

        Case "OU for Printer 3"
            objNetwork.SetDefaultPrinter "Printer 3"

        Case "LabColorPrinter"
            objNetwork.SetDefaultPrinter "Color Printer"

        Case Else
            objNetwork.SetDefaultPrinter "Printer 1"
    End Select

End If
0
ответ дан 5 December 2019 в 13:10

Теги

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