none
Ajuda com script para Office Communicator 2005 RRS feed

  • Pergunta

  • Olá, sou novo aqui no fórum então peço desculpas antecipadamente se estiver postando no local errado etc.

     

    Bom, criei um script para facilitar a adição de novos usuários nos contatos do Communicator da empresa. Os passos executados pelo script são, basicamente: adição do novo usuário à lista de contatos da empresa, aceite automático dos contatos ao novo usuário, criar a lista de contatos do novo usuário, aceite automático do novo usuário aos contatos.

    Antes de executar o script crio o usuário no AD e seu sip no servidor Live.

     

    Para isso, dentro do script, são chamados dois scripts do próprio Live Communicator 2005: LCSAddContacts.wsf e LCSACEs.wsf

     

    O problema é que, rodando o script na minha máquina ou no servidor do Live, nada acontece, nem mesmo um erro e tal.

     

    Segue o script:

     

    On Error Resume Next

     

    'file system object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    set WSHShell = wscript.createObject("wscript.shell")
    Set CScript = cscript.createObject("cscript.shell")

     

    Dim sNewUserName     'Variável para colher o nome do novo usuário
    Dim sNewLiveName     'Variável para colher o SIP do novo usuário
    Dim sNewUserGroup    'Variável para colher o grupo do novo usuário
    Dim objFSO, objCreatedFile, objOpenedFile, objTextFile
    Dim sRead, sReadLine, sReadAll

     

    Const ForReading = 1, ForWriting = 2, ForAppending = 8

     

    'Primeiro parâmetro = msgbox; segundo = título da msgbox
    'Faz a leitura das variáveis
    sNewUserName = InputBox("Nome do usuário.","Live Communicator")
    sNewLiveName = InputBox("SIP do usuário.","Live Communicator")
    sNewUserGroup = InputBox("Grupo do usuário.","Live Communicator")

     

    'Cria arquivos .txt para armazenar o nome e sip e grupo do novo contato
    Set objContact = objFSO.CreateTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\contact.txt", True) 'Arquivo criado na máquina local. Observar o caminho
    objContact.Write (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
    objContact.Close
    Set objGroup = objFSO.CreateTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\group.txt", True) 'Arquivo criado na máquina local. Observar o caminho
    objGroup.Write (sNewUserGroup)
    objGroup.Close

     

    'Executa os comandos do script
    Call CScript.Run("cmd.exe CScript.exe LCSAddContacts.wsf /usersfile:allusers.txt /contactsfile:contact.txt /contactsgroup:group.txt")
    Call CScript.Run("CScript LCSAddACEs.wsf /usersfile:allusers.txt /acesfile:ace.txt")

     

    'Cria a lista de contatos do novo usuário
    Call CScript.Run("CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:assistec.txt /contactsgroup:Assistencia Tecnica"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:compras.txt /contactsgroup:Compras"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:cpd.txt /contactsgroup:CPD"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfileBig Smileiretoria.txt /contactsgroupBig Smileiretoria"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:engenharia.txt /contactsgroup:Engenharia"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:estoque.txt /contactsgroup:Estoque"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:gq.txt /contactsgroup:Garantia da Qualidade"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:marketing.txt /contactsgroup:Marketing"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfileStick out tonguecp.txt /contactsgroupStick out tongueCP"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfileStick out tongueroducao.txt /contactsgroupStick out tongueroducao"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfile:rh.txt /contactsgroup:Recursos Humanos"+"CScript.exe LCSAddContacts.wsf /usersfile:contact.txt /contactsfileTongue Tiedmd.txt /contactsgroupTongue TiedMD")

     

    'Aceite dos contatos da empresa à lista do novo usuário
    Call CScript.Run("CScript LCSAddACEs.wsf /usersfile:contact.txt /acesfile:ace.txt")

     

    'Adiciona o novo usuário ao grupo correspondente
    If sNewUserGroup = "Assistencia Tecnica" then
     Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\assistec.txt", ForAppending, True) 'Observar o caminho
     objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
     else
     if sNewUserGroup = "Compras" then
      Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\compras.txt", ForAppending, True) 'Observar o caminho
      objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
      else
      if sNewUserGroup = "CPD" then
       Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\cpd.txt", ForAppending, True) 'Observar o caminho
       objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
       else
       if sNewUserGroup = "Diretoria" then
        Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\diretoria.txt", ForAppending, True) 'Observar o caminho
        objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
        else
        if sNewUserGroup = "Engenharia" then
         Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\engenharia.txt", ForAppending, True) 'Observar o caminho
         objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
         else
         if sNewUserGroup = "Estoque" then
          Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\estoque.txt", ForAppending, True) 'Observar o caminho
          objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
          else
          if sNewUserGroup = "Garantia da Qualidade" then
           Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\gq.txt", ForAppending, True) 'Observar o caminho
           objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
           else
           if sNewUserGroup = "Marketing" then
            Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\marketing.txt", ForAppending, True) 'Observar o caminho
            objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
            else
            if sNewUserGroup = "PCP" then
             Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\pcp.txt", ForAppending, True) 'Observar o caminho
             objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
             else
             if sNewUserGroup = "Producao" then
              Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\producao.txt", ForAppending, True) 'Observar o caminho
              objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
              else
              if sNewUserGroup = "Recursos Humanos" then
               Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\rh.txt", ForAppending, True) 'Observar o caminho
               objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
               else
               if sNewUserGroup = "SMD" then
                Set objUserGroup = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\smd.txt", ForAppending, True) 'Observar o caminho
                objUserGroup.WriteLine (sNewUserName+" "+"sip:"+sNewLiveName+"@quantatec.br")
               end if
              end if
             end if
            end if
           end if
          end if
         end if
        end if
       end if
      end if
     end if
    end if

     

    'Após a execução do script acima, adiciona o novo usuário à lista de contatos da empresa
    Set objAllusers = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\allusers.txt", ForAppending, True) 'Observar o caminho
    objAllusers.WriteLine ("sip:"+sNewLiveName+"@quantatec.br")
    objAllusers.Close

     

    'Adiciona o novo usuário à lista de aceite automático de contatos da empresa
    Set objAce = objFSO.OpenTextFile("C:\Documents and Settings\renan\Desktop\SCRIPT\teste\ace.txt", ForAppending, True) 'Observar o caminho
    objAce.WriteLine ("user"+" "+"sip:"+sNewLiveName+"@quantatec.br"+" "+"Allow"+" "+"Allow")
    objAce.Close

     

    Não sei se ficou bem claro, qualquer coisa eu tento esclarecer melhor.

    Se alguém tiver tempo e paciência para me ajudar, agradeço.

     

    Valeu galera, obrigado!!

    quarta-feira, 28 de maio de 2008 12:39