Nyomtató beállítás csoporttagság alapján

Az Acive Directory lehetővé teszi, hogy beállítsunk nyomtatókat felhasználói szinten. Készíthetünk login scriptet, ami beállítja a nyomtatót az adott OU-ban lévő felhasználóknak (GPO-t ugye OU-hoz lehet linkelni)

de

Mi van azokkal a renitensekkel, akik nem akarják felhasználói szinten beállítani a nyomtatót (mondjuk mert sűrűn változik a printer neve, helye) és mondjuk az OU struktúra sem teljesen fedi a valóságot valamiért? Úgy kell nekik, rendet kell tenni! Mondják most egy páran. Elvileg egyetértek, de mégis kell lennie  megoldásnak.

Ez a megoldás pedig teljesen kézenfekvő: egy kicsit kiokosított login script kell, egy olyan ami kezeli a csoport tagságot. A scriptet a domain gyökeréhez kell linkelni. Ezzel megoldható, hogy csoporttagság alapján állítódjon be nyomtató a felhasználók gépein. (persze van más megoldás is)

Mellékesen, ez a módszer használható hálózati meghajtók csoporttagság szerinti csatolására is.

Íme a script (VB)

Option Explicit
On Error Resume Next
Dim objNetwork, objUser, CurrentUser,objFSO

‘ Printer csoportok inicializalasa
‘————————-reszlegek——————————————-
Const printer1_csop = “cn=Marketing_printer”
Const printer2_csop = “cn=HR_printer”

‘————————— userek + adminok———————————-
Const Users_Group = “cn=users”
Const Administrators_Group = “cn=administrators”

‘———————-globalis objektumok inicializálása———————-
Set objNetwork = CreateObject(“WScript.Network”)
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘user objektum inicializalas /futtato user megallapitasa
Set objUser = CreateObject(“ADSystemInfo”)
Set CurrentUser = GetObject(“LDAP://” & objUser.UserName)
‘——————–Eljarasok, fugvenyek————————————–
‘—Map network drive—
Sub MapDrive(sLetter, sUNC)
If (objFSO.DriveExists(sLetter) = False) Then
objNetwork.MapNetworkDrive sLetter, sUNC
End If
End Sub

‘—set printer—
Sub SetPrinter(printerurl)
objNetwork.AddWindowsPrinterConnection printerurl
End Sub

‘—set default printer—
Sub SetDefPrinter(defaultprinter)
objNetwork.SetDefaultPrinter defaultprinter
End Sub

‘—Check group membership—
Function IsMemberOf(sGroupName)
Dim arrGroups,strGroup
arrGroups = CurrentUser.MemberOf

If IsEmpty(arrGroups) Then
strGroup = “”
ElseIf (TypeName(arrGroups) = “String”) Then
strGroup = LCase(arrGroups)
Else
strGroup = LCase(Join(CurrentUser.MemberOf))
End If

If InStr(strGroup, lcase(sGroupName)) Then
IsMemberOf = True
Else
IsMemberOf = False
End If
End Function

‘—-Map drives, set printers——————————————
‘———————————————————————-
If IsMemberOf(printer1_csop) Then
‘***Meghajtok***
MapDrive “o:”, “\nwtraders.msftrootshare1”
‘***Printerek***
SetPrinter “\printsrv1HP2100_1”
SetDefPrinter “\printsrv1HP2100_1”
End If

‘———————————————————————–
If IsMemberOf(printer2_csop) Then
‘***Meghajtok***
‘***Printerek***
SetPrinter “\printsrv1HP4600_2”
SetDefPrinter “\printsrv1HP4600_2″
End If

‘———–Adminok—————————————————–
If IsMemberOf(Administrators_Group) Then
‘WScript.Echo ” Administrator ”
‘***Meghajtok***
MapDrive “s:”, “\nwtraders.msftsysvol”
‘***Printerek***
End If
‘———————————————————————–
‘———–Minden felhasznalonak map N:————-
‘***Meghajtok***
MapDrive “n:”, “\nwtraders.msftroot”
‘***Printerek***

WScript.Quit