none
Script de login RRS feed

  • Pergunta

  •  

    Olá,

    Tenho uma rede com Windows 2003 Server e um domínio e algumas estações XP Pro. O Script de login abaixo é usado para mapeamento e funciona perfeitamente nas estações XP. Esse script fica no Server.

    Adicionei uma estação Windows Vista Business e o script não funciona ao efetuar o login. Se rodar o script localmente aí ele funciona.

    obs. Todos os software estão em português - Brasil.

    Carlos César Tanaka


    On error resume next
    Set wshNetwork = CreateObject("WScript.Network")
    wshNetwork.MapNetworkDrive "i:", "\\micro5\i"
    wshNetwork.MapNetworkDrive "m:", "\\micro5\d"

    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    colGroups = CurrentUser.memberOf
    If IsEmpty(colGroups) Then
      strGroups = ""
    ElseIf TypeName(colGroups) = "String" Then
      strGroups = LCase(colGroups)
    Else
      strGroups = LCase(Join(colGroups))
    End If

    If InStr(strGroups, GRP_DIRECAO) Then

        wshNetwork.MapNetworkDrive "h:", "\\micro5\h"
        wshNetwork.MapNetworkDrive "k:", "\\micro5\k"
        wshNetwork.MapNetworkDrive "l:", "\\micro5\l"
        wshNetwork.MapNetworkDrive "j:", "\\micro5\j"


    ElseIf InStr(strGroups, GRP_MONITORES) Then

        wshNetwork.MapNetworkDrive "h:", "\\micro5\h"
        wshNetwork.MapNetworkDrive "k:", "\\micro5\k"
        wshNetwork.MapNetworkDrive "l:", "\\micro5\l"

    ElseIf InStr(strGroups, GRP_ALUNOS) Then

        wshNetwork.MapNetworkDrive "h:", "\\micro5\h"
        wshNetwork.MapNetworkDrive "k:", "\\micro5\k"

    End if

    If InStr(Ucase(WshNetwork.ComputerName), "MICRO4") = 0 then
     WshNetwork.AddWindowsPrinterCOnnection "\\micro4\c85"
     WshNetwork.SetDefaultPrinter "\\micro4\c85"
    end if

    sexta-feira, 16 de março de 2007 16:53

Respostas

  • Ola Carlos

    Tudo bem.

    Tente colocar dessa forma, crie um .bat e coloque o mesmo como logon scritp da conta nesse .bat vc coloca:

    @echo off
    wscript.exe %logonserver%\netlogon\script.vbs

    ou

    @echo off
    cscript.exe %logonserver%\netlogon\script.vbs

    Abraço.

    sexta-feira, 16 de março de 2007 17:38
  • Carlos

    Boa noite.

    Nesse caso vc tera que atualizar os arquivos ADM para atender o vista, vou localizar o caminho e lhe passo.

    Abraço.

    domingo, 18 de março de 2007 01:06

Todas as Respostas

  • Ola Carlos

    Tudo bem.

    Tente colocar dessa forma, crie um .bat e coloque o mesmo como logon scritp da conta nesse .bat vc coloca:

    @echo off
    wscript.exe %logonserver%\netlogon\script.vbs

    ou

    @echo off
    cscript.exe %logonserver%\netlogon\script.vbs

    Abraço.

    sexta-feira, 16 de março de 2007 17:38
  • Prezado Leandro,

    Desse modo o script funciona, porém eu criei um container dentro do domínio com os usuários para que eu fizesse um único login script para eles, pois inserir o caminho de script para cada usuário não é muito prático.

    Então usei o recurso de Script de login dentro da Política de Grupo, e é dessa forma que eu gostaria que funcionasse também com o Windows Vista.

    César

    sexta-feira, 16 de março de 2007 21:16
  • Carlos

    Boa noite.

    Nesse caso vc tera que atualizar os arquivos ADM para atender o vista, vou localizar o caminho e lhe passo.

    Abraço.

    domingo, 18 de março de 2007 01:06
  • Ok Leandro, estou aguardando.

    Obrigado

    terça-feira, 20 de março de 2007 19:09