Option Explicit
Dim objShell,grouplistD,ADSPath,userPath,listGroup
Dim WshNetwork
On Error Resume Next
set objShell = WScript.CreateObject( "WScript.Shell" )
Set WshNetwork = CreateObject("WScript.Network")
If isMember("PrinterA") Then
WshNetwork.SetDefaultPrinter "\\research\libraryA"
End If
If isMember("PrinterB") Then
WshNetwork.SetDefaultPrinter "\\research\libraryB"
End If
Function IsMember(groupName)
If IsEmpty(groupListD) then
Set groupListD = CreateObject("Scripting.Dictionary")
groupListD.CompareMode = 1
ADSPath = EnvString("userdomain") & "/" & EnvString("username")
Set userPath = GetObject("WinNT://" & ADSPath & ",user")
For Each listGroup in userPath.Groups
groupListD.Add listGroup.Name, "-"
Next
End if
IsMember = CBool(groupListD.Exists(groupName))
End Function
Function EnvString(variable)
variable = "%" & variable & "%"
EnvString = objShell.ExpandEnvironmentStrings(variable)
End Function
Set objShell = Nothing