Pessoal
To precisando de uma ajuda de vocês
Criamos aqui na empresa um script para a instalação das impressoras assim que o usuário logar na rede, só que el alguns usuários o script executa, mas não consegue identificar o grupo que o usuário
faz parte e por isso não instala nenhuma impressora.
O script identifica que tem impressoras instaladas via \\ apaga elas e depois entra em um case para a instalação das impressoras.
Eu fiz um debug no script e verifiquei que no segundo for aonde coloquei em negrito, que ele não identifica o grupo que o usuário faz parte.
Será que alguém consegue me ajudar?
Abraço
on error resume next
Set objNet = WScript.CreateObject("WScript.Network")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
Set Printers = objNet.EnumPrinterConnections
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
For i = 0 to Printers.Count - 1 Step 2
If Left(ucase(Printers.Item(i+1)),2) = "\\" Then
objNet.RemovePrinterConnection Printers.Item(i+1)
End IF
Next
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
Select Case strGroupName
Case "#Grupo1"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\x644"
Case "#grupo2"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\x644"
Case "grupo3"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\x644"
Case "#Grupo4"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\HPLaserColor"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\W820"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\W820"
Case "#grupo5"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\x644"
Case "#grupo6"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\HPLaserColor"
Case "#grupo7"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\W820"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\W820"
Case "#grupo8"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\x644"
Case "grupo9"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\hp4660"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\T632_SMB"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\x644"
objNetwork.AddWindowsPrinterConnection "\\Printerserver\PDFCreator"
objNetwork.SetDefaultPrinter "\\Printerserver\T632_SMB"
End Select
Next
