ad script default printers

[3rdJoey]

Is it possible to set a default printer based on username using ad scripts? If so can anyone help me with the corret format.

Thanks

 

[withanh]

Something like this may give you a start, but you'll undoubtedly be better off looking in the VBScript forum at

http://www.tek-tips.com/threadminder.cfm?pid=329

Option Explicit

Dim strComputer
Dim strUserName
Dim strDefaultPrinter
Dim objWMIService
Dim objNetwork

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & _
  "{impersonationLevel=impersonate}!\\" & _
  strComputer & "\root\cimv2")
Set objNetwork = CreateObject("Wscript.Network")

strUserName = objNetwork.UserName
strDefaultPrinter = "\\ServerName\PrinterName"

If lcase(strUserName) = "johnd" Then
  WScript.Echo "set default printer"
  'objNetwork.SetDefaultPrinter strDefaultPrinter
End If