none
Duvidas em como adicionar este script em um script de logon.. RRS feed

  • Pergunta

  • Boa noite Pessoal..

    como consigo colocar este script para rodar com script de logon(tenho um script de logon em vbs que mapeia impressora e compartilhamentos estou tentando add este script neste meu de logon, porem quando faco isso nenhum dos 2 rodam)...

    alguem pode me dar um Help?

    obrigado...


    Dim strPasta1Origem, strPasta2Origem, strPasta1Destino, strPasta2Destino, strPastaBackup, strPasta1Backup, strPasta2Backup

    'Substitua essas variáveis
    strPasta1Origem = "\\Server\Pasta1"
    strPasta2Origem = "\\Server\Pasta2" 
    strPasta1Destino = "C:\Pasta1"
    strPasta2Destino = "C:\Pasta2"
    strPastaBackup = "C:\BKP"
    strPasta1Backup = "C:\BKP\Pasta1"
    strPasta2Backup = "C:\BKP\Pasta2"

    set objFSO=CreateObject("Scripting.FileSystemObject")

       If Not objFSO.FolderExists(strPastaBackup) Then
          objFSO.CreateFolder(strPastaBackup)
       End If
          
    If objFSO.FolderExists(strPasta1Destino) Then
       If objFSO.FolderExists(strPasta1Backup) Then
          Set rootFolder1 = objFSO.GetFolder(strPasta1Backup)   
          rootFolder1.Delete
       End If
       
       objFSO.MoveFolder strPasta1Destino, strPasta1Backup


    End If

    If objFSO.FolderExists(strPasta2Destino) Then
    If objFSO.FolderExists(strPasta2Backup) Then
          WScript.Echo "Pasta Backup existe"
          Set rootFolder2 = objFSO.GetFolder(strPasta2Backup)   
          rootFolder2.Delete
       End If
       
       objFSO.MoveFolder strPasta2Destino, strPasta2Backup

    End If

    objFSO.CopyFolder strPasta1Origem, strPasta1Destino
    objFSO.CopyFolder strPasta2Origem, strPasta2Destino
    WScript.Echo "Concluído"

    segunda-feira, 7 de junho de 2010 00:17

Todas as Respostas

  • Você está fazendo isso via propriedades da conta do usuário (logon script) ou via Group Policy. Se for via propriedade de conta, você só pode chamar um arquvio. Minha sugestão é fazer um arquivo .bat que execute os dois scripts e este arquivo .bat ser usado como logon script. Se for via Group Policy, você pode simplesmente adicionar os dois scripts normlamente.

    Espero ter ajudado,


    Se foi útil, não se esqueça de Marcar como Resposta. Cláudio Costa - MCITP Enterprise Administrator / MCSE /PMP / CCNA
    segunda-feira, 7 de junho de 2010 04:29
  • Boa noite Cludio,

    pensava em fazer isto via propriedade de conta, porem imaginava que podia simplesmente juntar os arquivos adicionando algumas linhas e fazendo em um so arquivo...

    voce poderia mostrar como colocaria somente este script via group policy? sendo assim o outro de logon pode continuar como estar via propriedade de conta certo?

    obrigado...

    terça-feira, 8 de junho de 2010 00:54
  • Qual a versão do seu windows para que possamos mostrar como criar via GPO.
    terça-feira, 8 de junho de 2010 01:44
  • Win2K3 Ent. Edit R2 SP2

    obrigado...

    quarta-feira, 9 de junho de 2010 00:48
  • Vamos fazer primeiro experimentando. No Seu AD crie uma Unidade Organizacional e coloque um usuário lá dentro para teste. Este usuário deve ter configurado em suas propriedades um dos logon scripts, como já esta configurado hoje. No 2003, você pode editar criar uma Group Policy diretamente nas propriedades da OU, e indo na terceira página Group Policy Objects. Eu, pessoalmente, gosto de usar o Group Policy management console para isso por causa dos recursos de relatórios que simplificam bastante. Após criar a política de grupo na OU, edite-a, dentro dela terá dois grupos de configurações, Configuraçoes de Usuário e Configurações de computador. Nas configurações de usuários, vá em Windows Configuration (eu acho, não to com um AD aqui pra lembrar exatamente), e clique em Logon Scripts. Aí é fácil, é só adicionar o(s) arquivos.

    Você pode até juntar os dois arquivos em um só, mas teria que ver bem o script final para ter certeza que funcionaria, depende do está sendo programado.

    A opçào da .bat também é simples. Com ela você pode executar os dois separadamente e ainda usar as propriedades da conta.

    Espero ter ajudado. Grande abraço. Se ainda tiver dúvida pode postar aqui que responderei assim que possível.


    Se foi útil, não se esqueça de Marcar como Resposta. Cláudio Costa - MCITP Enterprise Administrator / MCSE /PMP / CCNA
    • Sugerido como Resposta Carlos_rodrigues terça-feira, 21 de fevereiro de 2017 20:53
    quinta-feira, 10 de junho de 2010 04:20
  • Valeus Claudio pelo Retorno... Gostaria de juntar estes scripts em um só segue os scripts para voce verificar se é possivel

    'Primeiro script este deve copiar a pasta de nome homologa e salvar na pasta sistema em arquivos de programas...

    Dim strPasta1Origem, strPasta1Destino, strPastaBackup, strPasta1Backup

    strPasta1Origem = "\\srv-Files\Sistema\Homologa"
    strPasta1Destino = "C:\Documents and Settings\All Users\Menu Iniciar\Programas\Sistema\homologa"
    strPastaBackup = "C:\BKP"
    strPasta1Backup = "C:\BKP\homologa"
    set objFSO=CreateObject("Scripting.FileSystemObject")
       If Not objFSO.FolderExists(strPastaBackup) Then
          objFSO.CreateFolder(strPastaBackup)
       End If
    If objFSO.FolderExists(strPasta1Destino) Then
       If objFSO.FolderExists(strPasta1Backup) Then
          Set rootFolder1 = objFSO.GetFolder(strPasta1Backup)  
          rootFolder1.Delete
       End If
       objFSO.MoveFolder strPasta1Destino, strPasta1Backup
    End If
    objFSO.CopyFolder strPasta1Origem, strPasta1Destino
    WScript.Echo "concluido"


    'Segundo script este devera pegar os atalhos que estao no servidor srv-mat01 e colocar nos desktops

    set WshShell = WScript.CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    set oShellLink = WshShell.CreateShortcut(strDesktop & "\Sistema - homolog.lnk")
    oShellLink.TargetPath = "\\srv-mat01\Files\Sistema\homologacao - homolog.lnk"
    oShellLink.WindowStyle = 3
    oShellLink.Description = "sistema - homolog"
    oShellLink.Save

    Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.AddWindowsPrinterConnection "\\srv-printer\printer"

    Set objNetwork = WScript.CreateObject("WScript.Network")
    objNetwork.MapNetworkDrive "w:","\\srv-mat01\Financeiro"
    objNetwork.MapNetworkDrive "z:","\\srv-mat01\Automacao"
    Set WshNetwork = CreateObject("WScript.Network")

    'Bloqueando USB para pendrive e dispositivo de armazenamento
    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start",4,"REG_DWORD"
    Set WSHShell = nothing

    Obs.: tentei rodar estes scripts na mao na maquina do usuario e deu ____ informando acesso negado, logo se colocar este script no AD via group policy ele vai rodar sem problemas?

    caso nao consiga juntar estes scripts eu consigo colocar os 2 da forma que voce orientou via group police ele iria rodar os 2 na hora que o usuario fizer o logon?

    Entao resumindo o trabalho do script:

    1- Pegar uma pasta de sistema do servidor e colocar na maquina do usuario

    2 - Pegar os atalhos que estao na pasta do sistema e colocar no desktop do usuario

    3- Add impressora que fica em meu printer server

    4- Mapear diretorios no meu File server

    5- Bloquear usb para pendrive e unidade de armazenamento..

    entao é isso que preciso que estes scripts facam

    Muito obrigado pela ajuda..

     

    sábado, 12 de junho de 2010 02:21