Solved

Set default printer by Group Membership in AD (VB Script)

Posted on 2011-02-15
10
457 Views
Last Modified: 2014-01-01
Hey!

I am trying to create a simple script to set the default printer for users.
The users are spread to different locations and they would like to have their local network printers as default based on group membership

I have created several groups in AD by printername ("S-PrinterDefault-PRShareName") and added users to these groups.
In our exsisting VB script we have mapped all printers and I assume that I have to add this default line after this lines.

0
Comment
Question by:GMH77
10 Comments
 
LVL 18

Expert Comment

by:Anil Golamari
Comment Utility
0
 
LVL 65

Expert Comment

by:RobSampson
Comment Utility
Hi, here's another script you can use to map printers by group membership, and set one as the default printer.

In your case, if you already have all printers mapped, then just specify one printer per group, and use True as the "default flag".

Regards,

Rob.
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
' THIS LINE MUST BE PLACED IN THE MAIN CODE TO ALLOW THE DICTIONARY
' OBJECT TO REMAIN PERSISTENT FOR THE ISMEMBEROFGROUP Function
Dim objMemberships

' The array consists of these elements per line
'<Group Name>|<Printer Share>|<Default Flag>
' The Group Name can be ALL to map a printer for everyone
' and the default flag can be True, False, or omitted
' to set that printer as the default for that group
arrPrinters = Array( _
      "ALL|\\server1\CommonPrinter", _
      "Sydney-NO-2270MFD-Default|\\fs1\syndeymfd|True", _
      "Sydney-NO-2270MFD|\\fs1\sydneymfd" _
      )

Set objNetwork = CreateObject("WScript.Network") 
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Section to map the network printers
For Each strPrinterSpec In arrPrinters
	arrBits = Split(strPrinterSpec, "|")
	strGroup = arrBits(0)
	strPrinter = arrBits(1)
	If UBound(arrBits) = 2 Then
		blnDefault = arrBits(2)
		If LCase(blnDefault) = "true" Then
			blnDefault = True
		ElseIf LCase(blnDefault) = "false" Then
			blnDefault = False
		Else
			blnDefault = False
		End If
	Else
		blnDefault = False
	End If
	
	If IsMemberOfGroup(objUser, strGroup) = True Then
		On Error Resume Next
		objNetwork.AddWindowsPrinterConnection strPrinter
		If Err.Number <> 0 Then
			MsgBox "Error mapping printer " & strPrinter & ". Error " & Err.Number & ": " & Err.Description
			Err.Clear
		ElseIf blnDefault = True Then
			objNetwork.SetDefaultPrinter strPrinter
		End If
		On Error GoTo 0
	End If
Next

Function IsMemberOfGroup(objADUser, strGroupCN)
	Dim strGroupName
	If IsEmpty(objMemberships) = True Then
		Set objMemberships = CreateObject("Scripting.Dictionary")
		objMemberships.Add LCase("ALL"), 0
		If IsNull(objADUser.MemberOf) = False Then
			If TypeName(objADUser.MemberOf) = "String" Then
				objMemberships.Add LCase(Mid(Split(objADUser.MemberOf, ",")(0), 4)), 0
			Else
				For Each strGroupName In objADUser.MemberOf
					objMemberships.Add LCase(Mid(Split(strGroupName, ",")(0), 4)), 0
				Next
			End If
		End If
	End If
	If objMemberships.Exists(LCase(strGroupCN)) = True Then
		IsMemberOfGroup = True
	Else
		IsMemberOfGroup = False
	End If
End Function

Open in new window

0
 
LVL 9

Expert Comment

by:abolinhas
Comment Utility
Try this
Option Explicit
Dim objPrinter
Set objPrinter = CreateObject("WScript.Network") 
objPrinter.SetDefaultPrinter "\\ServerName\PrinterName"
' End of example VBScript

Open in new window

0
 

Author Comment

by:GMH77
Comment Utility
Sorry guys, havent been able to give you any update regarding this question.

I would like it to be as simple as possible is it possible to say somthing like
Map all printers here
Map printer 1
Map printer 2
and
If member of AD GRoupWithNamePrinter1
set default printer = \\SERVER\Printer1
and or
If member of AD GRoupWithNamePrinter2
set default printer = \\SERVER\Printer2
0
Get up to 2TB FREE CLOUD per backup license!

An exclusive Black Friday offer just for Expert Exchange audience! Buy any of our top-rated backup solutions & get up to 2TB free cloud per system! Perform local & cloud backup in the same step, and restore instantly—anytime, anywhere. Grab this deal now before it disappears!

 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
Comment Utility
OK, this will do that.

Regards,

Rob.
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
' THIS LINE MUST BE PLACED IN THE MAIN CODE TO ALLOW THE DICTIONARY
' OBJECT TO REMAIN PERSISTENT FOR THE ISMEMBEROFGROUP Function
Dim objMemberships

Set objNetwork = CreateObject("WScript.Network") 
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Section to map the network printers
objNetwork.AddWindowsPrinterConnection "\\server1\printer1"
objNetwork.AddWindowsPrinterConnection "\\server1\printer2"
objNetwork.AddWindowsPrinterConnection "\\server1\printer3"

If IsMemberOfGroup(objUser, "GroupWithNamePrinter1") = True Then
	On Error Resume Next
	objNetwork.SetDefaultPrinter "\\server\printer1"
	Err.Clear
	On Error GoTo 0
ElseIf IsMemberOfGroup(objUser, "GroupWithNamePrinter2") = True Then
	On Error Resume Next
	objNetwork.SetDefaultPrinter "\\server\printer2"
	Err.Clear
	On Error GoTo 0
ElseIf IsMemberOfGroup(objUser, "GroupWithNamePrinter3") = True Then
	On Error Resume Next
	objNetwork.SetDefaultPrinter "\\server\printer3"
	Err.Clear
	On Error GoTo 0
End If

Function IsMemberOfGroup(objADUser, strGroupCN)
	Dim strGroupName
	If IsEmpty(objMemberships) = True Then
		Set objMemberships = CreateObject("Scripting.Dictionary")
		objMemberships.Add LCase("ALL"), 0
		If IsNull(objADUser.MemberOf) = False Then
			If TypeName(objADUser.MemberOf) = "String" Then
				objMemberships.Add LCase(Mid(Split(objADUser.MemberOf, ",")(0), 4)), 0
			Else
				For Each strGroupName In objADUser.MemberOf
					objMemberships.Add LCase(Mid(Split(strGroupName, ",")(0), 4)), 0
				Next
			End If
		End If
	End If
	If objMemberships.Exists(LCase(strGroupCN)) = True Then
		IsMemberOfGroup = True
	Else
		IsMemberOfGroup = False
	End If
End Function

Open in new window

0
 

Author Comment

by:GMH77
Comment Utility
Sorry that I havent been able to answer back

I will try this configuration asap
0
 
LVL 65

Expert Comment

by:RobSampson
Comment Utility
Hi, did you have any time to get back to this?

Regards,

Rob.
0
 

Author Comment

by:GMH77
Comment Utility
No, havent got the time to test it cause customer wants to wait :(
Have planned to to this in June I hope
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

The question has been asked on multiple occasions as to how best to do printing in a remote desktop or terminal services environment.   It seems that this particular question has plagued several people and most especially as Terminal Services, as…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now