поделитесь скриптом - подцеплять принтеры в АД

olsh

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

viktor954

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddwindowsPrinterConnection
WshNetwork.SetDefaultPrinter

logan00108

Как раз сча такой вариант у меня реализован. Но в нем прав нет.
В целом +1 к вопросу.

viktor954

Что значит "в нём прав нет"?!?!?!

logan00108

В том плане, что все принтеры всем подцепляются, а не в соответствии с Security Group.

viktor954

Это тебе поможет:

Set oNet 	= CreateObject("WScript.Network")



' FUNCTION ============ IsMEmber =====================================================

Function IsMember(sGroup)

' IsMember

' Test to see if user if member of specified group

'

' sGroup            Name of group

' Returns           True if user is group member

'

    Dim sAdsPath, oUser, oGroup

    ' ================= Populate dictionary if not yet created =======================

    If IsEmpty(g_oGroupDict) Then

        Set g_oGroupDict = CreateObject("Scripting.Dictionary")

        g_oGroupDict.CompareMode = vbTextCompare

        sAdsPath = oNet.UserDomain & "/" & oNet.UserName

	On Error Resume Next

		Set oUser = GetObject("WinNT://" & sAdsPath & ",user")

			If Err.Number then 

				IsMember = FALSE

				Exit Function

			End IF		

	On Error Goto 0

        For Each oGroup In oUser.Groups

            g_oGroupDict.Add oGroup.Name, "-"

        Next

        Set oUser = Nothing

    End If

    IsMember = CBool(g_oGroupDict.Exists(sGroup

End Function

logan00108

Спс, респект Имплементирую на досуге