none
Erro de tempo de execução do Microsoft VBScript RRS feed

  • Pergunta

  • Senhores,

    Primeiramente peço desculpas caso esteja colocando minha dúvida em local errado, mas vamos lá:

    Tenho o seguinte script para verificar quem está definido como admin local da máquina:

     

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")

    'Nome do Computador, utilize "." para local
    strComputer = "."

    'Nome do grupo que deseja listar os usuários, Administrators ou administradores no seu caso
    strGroup = "Administradores"

    'Caminho onde o LoG sera salvo
    strLogFolder = \\servidor\pastacompartilhada\

    'Nome que o arquivo será salvo
    strLogFile = WshNetwork.ComputerName & ".txt"

    strLogPath = strLogFolder & strLogFile

    Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup)

    If not objFSO.FileExists(strLogPath) Then 'Verifica se o relatorio da maquina já foi gerado
       Set ObjFileAppending = ObjFSO.opentextfile(strLogPath, 8, True)
       For Each objUser In objGroup.Members
           GravaTXT objUser.Name
       Next
    End If


    Function GravaTXT (String)
    ObjFileAppending.WriteLine String
    End Function

     

    Se executo o arquivo .vbs manualmente na máquina, ele funciona perfeitamente.

    Porém, quando coloco o vbs no netlogon e crio uma GPO de Startup apontando para esse arquivo (independete se for de usuário ou máquina), o script não funciona mais.

    Realizei o "gpresult" e verifiquei que a politica está sendo aplicada, mas o arquivo não é garado na pasta compartilhada. Também já verifiquei os acessos a pasta todos os usuário possuem acesso.

     

    Alguém pode me ajudar?


    Ramon Céspedes - MCP XP e 2003 Server
    terça-feira, 3 de agosto de 2010 12:28

Respostas

  • Blz,

    Provavelmente isso está ocorrendo porque algum serviço ainda não foi iniciado, tente dar um Wscript.Sleep(15000) logo no inicio do script para ele aguardar um tempo pra ver se funciona.

    Qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCTS / MCSA / MCSE / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta Ramon Céspedes terça-feira, 3 de agosto de 2010 15:03
    terça-feira, 3 de agosto de 2010 14:39

Todas as Respostas

  • Tente executar nos scripts de computador e verifique se a pasta está com acesso de modificação para o grupo Authenticated Users.

    Qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCTS / MCSA / MCSE / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    terça-feira, 3 de agosto de 2010 13:15
  • Gabriel, obrigado pela dica!

    Porém, já coloquei a GPO para ser aplicada por computador e também não funciona.

    Quanto a pasta, os usuários autenticados possuem acesso sim, inclusive se executo o vbs manualmente funciona.


    Ramon Céspedes - MCP XP e 2003 Server
    terça-feira, 3 de agosto de 2010 13:23
  • Ramon,

    Para testar tente alterar o script para gravar o arquivo local e teste em uma máquina.

    Poste o resultado.

    Abraço.


    Gabriel Nascimento MCP / MCTS / MCSA / MCSE / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    terça-feira, 3 de agosto de 2010 13:34
  • Gabriel,

    Como teste, alterei o script para gravar no desktop da minha máquina e funcionou.

    Apliquei o startup de computador na OU onde os pcs estão.


    Ramon Céspedes - MCP XP e 2003 Server
    terça-feira, 3 de agosto de 2010 14:04
  • Blz,

    Provavelmente isso está ocorrendo porque algum serviço ainda não foi iniciado, tente dar um Wscript.Sleep(15000) logo no inicio do script para ele aguardar um tempo pra ver se funciona.

    Qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCTS / MCSA / MCSE / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    • Marcado como Resposta Ramon Céspedes terça-feira, 3 de agosto de 2010 15:03
    terça-feira, 3 de agosto de 2010 14:39
  • NA MOSCA!

    Era isso mesmo Gabriel, coloquei esse comando no inicio do script e funcionou.
    Reiniciei a máquina e então começou a gravar certo.

    Muito obrigado pela ajuda!


    Ramon Céspedes - MCP XP e 2003 Server
    terça-feira, 3 de agosto de 2010 15:03