Script de impressora com AD

• Pergunta

• 

  

  0

  Entrar para Votar

  Bom Dia Amigos

   

  Estou precisando mapear algumas impressoras aqui na minha rede, e ocorre que no meu Active directory a estrutura de OU está desenvolvida da seguinte forma:

  Ou dentro de outra OU ( Ex.: a OU Administrativo está dentro da OU SBC. A OU comercial está dentro da OU Administrativo que está dentro de sbc e assim por diante.

   

  sbc

  administrativo

  comercial

  exportacao

  marketing

  representantes

   

   

  Consegui um script em VBS que faz o mapeamento das impressoras, mas ele não consegue fazer essa leitura das OUs da forma como está estruturada aqui na empresa, segue abaixo um trecho do Script:

   

  Code Snippet

  On error Resume Next
  Err.clear 0

  Set objUser = WScript.CreateObject("WScript.Network")
  wuser=objUser.UserName
  If Time <= "12:00:00" Then
  MsgBox ("Bom Dia "+Wuser+", SUA IMPRESSORA FOI ALTERADA....TENHA CALMA USUARIO!")
  ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
  MsgBox ("Boa Tarde "+Wuser+", SUA IMPRESSORA FOI ALTERADA....TENHA CALMA USUARIO!")
  Else
  MsgBox ("Boa Noite "+wuser+", SUA IMPRESSORA FOI ALTERADA....TENHA CALMA USUARIO!")
  End If

  Const NETWORK = 22

  Set objNetwork = CreateObject("WScript.Network")

  strComputer = "."

  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
      
  For Each objPrinter in colPrinters
      If objPrinter.Attributes And NETWORK Then
          strPrinter = objPrinter.Name
          objNetwork.RemovePrinterConnection strPrinter
      End If
  Next

  Set objSysInfo = CreateObject("ADSystemInfo")

  strUserPath = "LDAP://" & objSysInfo.UserName
  Set objUser = GetObject(strUserPath)

  For Each strGroup in objUser.MemberOf
      strGroupPath = "LDAP://" & strGroup
      Set objGroup = GetObject(strGroupPath)
      strGroupName = objGroup.CN

      Select Case strGroupName

   Case "Administrativo"
              objNetwork.AddWindowsPrinterConnection "\\W2K3PRT01\HP4345-Controladoria"
       objNetwork.SetDefaultPrinter "\\W2K3PRT01\HP4345-Controladoria"
              objNetwork.AddWindowsPrinterConnection "\\W2K3PRT01\HP4345-Mezanino"

               objNetwork.AddWindowsPrinterConnection "\\W2K3PRT01\HP4345-Mezanino"

    Case "TI"
              objNetwork.AddWindowsPrinterConnection "\\W2K3PRT01\HP4345-CPD"
       objNetwork.SetDefaultPrinter "\\W2K3PRT01\HP4345-CPD"
              objNetwork.AddWindowsPrinterConnection "\\W2K3PRT01\HP4345-Mezanino"
              objNetwork.AddWindowsPrinterConnection "\\W2K3PRT01\HP3505-Presidencia"

      End Select
  Next

  Wscript.Quit

   

   

   

   

   

   

  Gostaria de saber o que eu preciso alterar em meu script para que ele funcione.

   

  Desde já agradeço.

   

   

   

   

   

  terça-feira, 3 de junho de 2008 15:05

  Responder

  |

  Citação