none
Script não executa em algumas estações. RRS feed

  • Pergunta

  • Caros,

     

    Depois de muito garimpar, consegui montar um script que ajusta a hora dos desktops com o servidor e mapeia as unidades do usuário de acordo com o G_Global dele.

    Mas acontece que algumas pessoas me reportaram que não estavam mapeando as unidades.

    Ou seja ele funciona só em algumas maquinas. Todas estão com XP Pro SP2 e mesmo executando na marra ainda não vai.

    Não retorna nenhuma mensagem de erro, parece que nem cliquei nele.

     

    Se alguém tiver passado por isso, ou souber como ajudar, agradeço desde já.

     

    Obrigado.

     

    Jensen Clayton

    quarta-feira, 30 de janeiro de 2008 19:38

Todas as Respostas

  • verifique o dns das estações se estão apontando para o servidor que esta com os scripts

    quinta-feira, 31 de janeiro de 2008 10:50
  • Fabio,

     

    O DNS está ok, pois se mudar o script pra .bat ele funciona.

    Se copiar o script para o esses micros, ainda assim não funciona.

     

    Não tenho ideia, pois já olhei e estão configurados para serem executados pelo Microsoft (r) Windows Based Script Host (wscript.exe).

     

    Valeu.

     

    Jensen Clayton

     

    quinta-feira, 31 de janeiro de 2008 12:23
  • Jensen seria mais produtivo se vc postasse o famigerado para gente dar uma olhada!!!

    abraço!!!

     

    sexta-feira, 1 de fevereiro de 2008 22:51
  • Romeu,

     

    Vou colocar o script pois pode até servir para outros, mas ele não está com problemas.

    Funciona beleza em minha estação e mais 5.

    Mas outras não. Todas com XP Pro SP2.

     

    Onde tem (On Error Resume Next), coloquei ('On Error Resume Next) para cancelar e mostrar eventuais erros, mas mesmo assim não aparece.

     

    Segue o Script!

    Code Snippet

     

    'Sincroniza hora com Servidor
    On Error Resume Next

    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.run("Net Time \\Servidor /Set /Y"),0,True


    'Mapeia Unidades de Redes de Acordo com o Grupo Global do usuário
    On Error Resume Next

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objNetwork = CreateObject("Wscript.Network")

    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 "G_Administrativo"

     Set WshNetwork = WScript.CreateObject("WScript.Network")

     WshNetwork.RemoveNetworkDrive "I:",True,True
     WshNetwork.MapNetworkDrive "I:", "\\Servidor\Software"

     WshNetwork.RemoveNetworkDrive "S:",True,True
     WshNetwork.MapNetworkDrive "S:", "\\Servidor\Setores$\Administrativo"

     WshNetwork.RemoveNetworkDrive "T:",True,True
     WshNetwork.MapNetworkDrive "T:", "\\Servidor\Temp$\Temp"

        Case "G_Comercial"

     Set WshNetwork = WScript.CreateObject("WScript.Network")

     WshNetwork.RemoveNetworkDrive "I:",True,True
     WshNetwork.MapNetworkDrive "I:", "\\Servidor\Software"

     WshNetwork.RemoveNetworkDrive "S:",True,True
     WshNetwork.MapNetworkDrive "S:", "\\Servidor\Setores$\Comercial"

     WshNetwork.RemoveNetworkDrive "T:",True,True
     WshNetwork.MapNetworkDrive "T:", "\\Servidor\Temp$\Temp"

        Case "G_Desenvolvimento"

     Set WshNetwork = WScript.CreateObject("WScript.Network")

     WshNetwork.RemoveNetworkDrive "I:",True,True
     WshNetwork.MapNetworkDrive "I:", "\\Servidor\Software"

     WshNetwork.RemoveNetworkDrive "S:",True,True
     WshNetwork.MapNetworkDrive "S:", "\\Servidor\Setores$\Desenvolvimento"

     WshNetwork.RemoveNetworkDrive "T:",True,True
     WshNetwork.MapNetworkDrive "T:", "\\Servidor\Temp$\Temp"

        Case "G_Infra"
               
     Set WshNetwork = WScript.CreateObject("WScript.Network")

     WshNetwork.RemoveNetworkDrive "I:",True,True
     WshNetwork.MapNetworkDrive "I:", "\\Servidor\Software"

     WshNetwork.RemoveNetworkDrive "S:",True,True
     WshNetwork.MapNetworkDrive "S:", "\\Servidor\Setores$\Infra"

     WshNetwork.RemoveNetworkDrive "T:",True,True
     WshNetwork.MapNetworkDrive "T:", "\\Servidor\Temp$\Temp"
           
        Case "G_Suporte"

     Set WshNetwork = WScript.CreateObject("WScript.Network")

     WshNetwork.RemoveNetworkDrive "I:",True,True
     WshNetwork.MapNetworkDrive "I:", "\\Servidor\Software"

     WshNetwork.RemoveNetworkDrive "S:",True,True
     WshNetwork.MapNetworkDrive "S:", "\\Servidor\Setores$\Suporte"

     WshNetwork.RemoveNetworkDrive "T:",True,True
     WshNetwork.MapNetworkDrive "T:", "\\Servidor\Temp$\Temp"

        End Select
    Next

     

     

    Valeu.

     

    Jensen Clayton

    sábado, 2 de fevereiro de 2008 00:51
  • Vou testar no meu trabalho...mas antes você poderia me dizer se usuário comum tem premissão para alterar hora na sua rede???
    Outro detalhe todos estão pelo menos em um destes grupos?
    abração.
    sexta-feira, 8 de fevereiro de 2008 23:04