locked
problema com script de logon RRS feed

  • Pergunta

  • criei um script para ser executado no logon da máquina via GPO em User Configuration / Windows Settings / Scripts (Logon/Logoff) / Logon, adicionei o script a ser executado.

    o que acontece é o seguinte, ao ligar  a máquina o script é executado, blz... porém ao dar um Logoff e entrar novamente com o usuário ele dá erro no script, alguém sabe o porque isso ocorre?

    se reiniciar ou ligar, ok, agora se der logoff e entrar denovo ele dá erro.

    terça-feira, 19 de outubro de 2010 10:49

Respostas

  • Solrac,

    Em cima deste script no inicio, digite:

    ON ERROR RESUME NEXT

    Veja se o problema para de acontecer!

    Abs


    ..::.. Carlos Henrique | MCSA WINDOWS SERVER 2003 ..::..
    • Marcado como Resposta CEFL terça-feira, 19 de outubro de 2010 11:17
    terça-feira, 19 de outubro de 2010 10:58

Todas as Respostas

  • Solrac, bom dia!

    Poste o script aqui por favor, é em vbs?

    abs


    ..::.. Carlos Henrique | MCSA WINDOWS SERVER 2003 ..::..
    terça-feira, 19 de outubro de 2010 10:55
  • sim é VBS
      File1 = "C:\SIGA\siga2.exe"
      File2 = "\\server\Siga\atualiza_siga\siga2.exe"
      File3 = "C:\SIGA\siga.exe"
      File4 = "\\server\Siga\atualiza_siga\siga.exe"
      strDriverFaturamento = "N:\"
    
      Set strFolder = CreateObject("Scripting.FileSystemObject")
      
      Sub AtualizarSistema()
        strOrigem = "\\SERVER\Siga\atualiza_siga"
        strOrigem2 = "\\SERVER\Siga\atualiza_siga_outros\Cobranca"
        strOrigem3 = "\\SERVER\Siga\atualiza_siga_outros\NFe_Util"
        strCaminho = "C:\SIGA"
        strCaminho2 = "C:\SIGA\COBRANCA"
        strCaminho3 = "C:\SIGA\NFe_Util"
        
        If strFolder.FolderExists(strCaminho) = False Then
          strFolder.CreateFolder(strCaminho)
          strFolder.CopyFolder strOrigem, strCaminho, True
        Else
          strFolder.CopyFolder strOrigem, strCaminho, True
        End If
    
        If strFolder.FolderExists(strCaminho2) = False Then
          strFolder.CreateFolder(strCaminho2)
          strFolder.CopyFolder strOrigem2, strCaminho2, True
        End If
    
        If strFolder.FolderExists(strCaminho3) = False Then
          strFolder.CreateFolder(strCaminho3)
          strFolder.CopyFolder strOrigem3, strCaminho3, True
        End If
      End Sub
    
      If strFolder.FolderExists(strDriverFaturamento) = False Then
    '    Set objNet = CreateObject("Wscript.Network")
    '    objNet.MapNetworkDrive "N:","\\server\deptos"
      End If
    
      If strFolder.FileExists(File1) = False Or strFolder.FileExists(File3) = False Then
        AtualizarSistema()
      Else
        Set SrcFile = strFolder.GetFile(File1)
        Set CpyFile = strFolder.GetFile(File2)
        Set SrcFile2 = strFolder.GetFile(File3)
        Set CpyFile2 = strFolder.GetFile(File4)
        
        If SrcFile.DatelastModified <> CpyFile.DatelastModified Or SrcFile2.DatelastModified <> CpyFile2.DatelastModified Then
    '      Wscript.Echo "fora2"
          AtualizarSistema()    
        End If
      End If
    terça-feira, 19 de outubro de 2010 10:57
  • Solrac,

    Em cima deste script no inicio, digite:

    ON ERROR RESUME NEXT

    Veja se o problema para de acontecer!

    Abs


    ..::.. Carlos Henrique | MCSA WINDOWS SERVER 2003 ..::..
    • Marcado como Resposta CEFL terça-feira, 19 de outubro de 2010 11:17
    terça-feira, 19 de outubro de 2010 10:58