none
ALGUMA CORREÇÃO ? RRS feed

  • Pergunta

  • OLA AMIGOS

     

    DEPOIS DE OBSERVAR VARIOS EXEMPLOS E NÃO SENDO CONHECEDOR DE SCRIPTS, ME ATREVI A ESCREVER UM SCRIPT DE LOGON QUE DEVERA MAPEAR PASTAS E IMPRESSORAS DE ACORDO COM O GRUPO DO USUARIOS. ESTE MESMO SCRIPT DEVERA(NÃO SEI A SINTAXE) SINCRONIZAR O HORARIO DAS ESTACOES COM O DC. SEGUE O EXEMPLO E SE HOUVER ALGUMA CORREÇÃO PEDIRIA QUE VCS CORRIGISSEM, DESDE JA AGRADEÇO  QUALQUER AJUDA SEGUE O CODIGO:

     

    Dim objNetwork
    dim sDomain, sGroup, sUser, objShell, sMapUser, objNetwork2
    dim objGroup, objUser
    dim bMember
    Set objNetwork = CreateObject("WScript.Network")
    sDomain = objNetwork.UserDomain
    sUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)
    sMapUser = "\\SRVARQ01\USUARIOS\" + sUser
    For each oGroup in objUser.Groups
    If UCase(oGroup.Name) = "FINANCEIRO" Then
       objNetwork.MapNetworkDrive "X:", \\SRVARQ01\empresa\vendas
       objNetwork.MapNetworkDrive "Y:", sMapUser
       objNetwork.MapNetworkDrive "Z:", \\SRVARQ02\PUBLICA
       objNetwork.AddWindowsPrinterConnection "\\SRVIMP\X3428-FINAN"
       objNetwork.SetDefaultPrinter "\\SRVIMP\X3428-FINAN"
    ELSEIf UCase(oGroup.Name) = "ADMINISTRATIVO" Then
       objNetwork.MapNetworkDrive "X:", \\dc01\empresa\administrativo
       objNetwork.MapNetworkDrive "Y:", sMapUser
       objNetwork.MapNetworkDrive "Z:", \\SRVARQ02\PUBLICA
       objNetwork.AddWindowsPrinterConnection "\\SRVIMP\XHP1505N"
       objNetwork.AddWindowsPrinterConnection "\\SRVIMP\XLEX748"
       objNetwork.SetDefaultPrinter "\\SRVIMP\X3428-FINAN
    endif
    next

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    Dim objNetwork
    dim sDomain, sGroup, sUser, objShell, sMapUser, objNetwork2
    dim objGroup, objUser
    dim bMember
    Set objNetwork = CreateObject("WScript.Network")
    sDomain = objNetwork.UserDomain
    sUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)
    sMapUser = "\\SRVARQ01\USUARIOS\" + sUser
    For each oGroup in objUser.Groups
    If UCase(oGroup.Name) = "FINANCEIRO" Then
       objNetwork.MapNetworkDrive "X:", \\SRVARQ01\empresa\vendas
       objNetwork.MapNetworkDrive "Y:", sMapUser
       objNetwork.MapNetworkDrive "Z:", \\SRVARQ02\PUBLICA
       objNetwork.AddWindowsPrinterConnection "\\SRVIMP\X3428-FINAN"
       objNetwork.SetDefaultPrinter "\\SRVIMP\X3428-FINAN"
    ELSEIf UCase(oGroup.Name) = "ADMINISTRATIVO" Then
       objNetwork.MapNetworkDrive "X:", \\dc01\empresa\administrativo
       objNetwork.MapNetworkDrive "Y:", sMapUser
       objNetwork.MapNetworkDrive "Z:", \\SRVARQ02\PUBLICA
       objNetwork.AddWindowsPrinterConnection "\\SRVIMP\XHP1505N"
       objNetwork.AddWindowsPrinterConnection "\\SRVIMP\XLEX748"
       objNetwork.SetDefaultPrinter "\\SRVIMP\X3428-FINAN
    endif
    next

     

     

     

     

    sábado, 4 de dezembro de 2010 23:18

Todas as Respostas

  • Olá,

    eu tenho uma sugestão: retire a lógica que sincroniza o horário das estações com o DC. Essa não é nem de longe a melhor forma nem o local correto pra se fazer isso. =)

     

    []s,

    Vinicius



    Vinicius Canto MVP Admin Frameworks Blog: http://viniciuscanto.blogspot.com
    domingo, 5 de dezembro de 2010 02:02
    Moderador
  • Ola Vinicius

     

    Seguirei a sua sugestão no tocante a sincronização das estações com o DC, porem, e o codigo esta tudo correto ? e qual a melhor forma para efetuar a sincronização ? desde ja te agradeço a ajuda

    domingo, 5 de dezembro de 2010 10:40
  •  Aparentemente sim. Tem um problema que pode acontecer caso o usuário pertença somente a um único grupo ou a nenhum grupo... nesse caso o objUser.Groups não retorna um vetor, e sim uma string ou null. Veja alguns exemplos de como fazer isso no site do ScriptCenter.

    Você está vendo alguma mensagem de erro?

     

    []s,

    Vinicius


    Vinicius Canto MVP Admin Frameworks Blog: http://viniciuscanto.blogspot.com
    domingo, 5 de dezembro de 2010 14:36
    Moderador
  • Desculpe Vinicius

     

    Não tenho dominio do vscript, não entendi

    domingo, 5 de dezembro de 2010 18:30
  • no exemplo q te enviei como ficaria a melhor solução ????
    domingo, 5 de dezembro de 2010 18:41