none
Mapear unidades por usuario RRS feed

  • Pergunta

  •  

    Hoje uso pra designar a unidade do usuario o seguinte comando em bat:

    if%username%==fulano goto publico

     

    : publico

    net use p: //server-3/publico

     

    Como posso fazer isso em VB, por favor exemplifiquem, ainda não entendo bem VBScript

    terça-feira, 7 de outubro de 2008 17:25

Respostas

  • 'OBJETO QUE MAPEIA DRIVES
    Set objNetwork = CreateObject("WScript.Network") 
    
    
    'Coloca em uma variavel o usuario atual
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    strUsername = WshNetwork.UserName
    
    
    'CADA if %USERNAME%==JBIZZO GOTO ADM VC TRANSFORMA PARA
    ' if strUsername="JBIZZO" then call ADM()
    
    if strUsername="VANDRELEI" then call FAB()
    if strUsername="SANDRINHA" then call BANCOS()
    
    
    
    'CADA LABEL DO BATCH VC TRANSFORMA NUMA SUB
    'DEIXE AS SUB POR ÚLTIMO NO SCRIPT
    'EXEMPLOS:
    sub FAB()
    	objNetwork.MapNetworkDrive "f:" , "\\server-3\FABRICA"
    	objNetwork.MapNetworkDrive "p:" , "\\server-3\PUBLICO"
    	objNetwork.MapNetworkDrive "U:" , "\\server-3\USERS"
    
    end sub
    
    suB APB()
    	objNetwork.MapNetworkDrive "R:" , "\\server-8\CNAB APB"
    
    	'cHAMANDO UMA SUB DE DENTRO DE OUTRA SUB
    	if strUsername="WILMA" then call DECISOR
    end sub
     
    sub ACR()
    	objNetwork.MapNetworkDrive "V:" , "\\server-8\CNAB ACR"
    
    end sub
     
    sub DECISOR()
    	objNetwork.MapNetworkDrive "G:" , "\\server-3\SYSFAET2"
    end sub
    
    
    


    Fábio de Paula Junior
    sexta-feira, 13 de janeiro de 2012 11:03
    Moderador

Todas as Respostas

  • http://forums.microsoft.com/TechNet-BR/ShowPost.aspx?PostID=3864201&SiteID=29
    terça-feira, 7 de outubro de 2008 22:14
  • Sabe o mapeamento por grupo? é isso só que por usuario

    segue meu logon pra facilitar

    if %USERNAME%==TALLES GOTO TI
    if %USERNAME%==GILSON GOTO TI
    if %USERNAME%==GHABIBE GOTO TI

    if %USERNAME%==VANDRELEI GOTO FAB
    if %USERNAME%==HRANDRADE GOTO FAB
    if %USERNAME%==NOELM GOTO FAB
    if %USERNAME%==ELOISA GOTO FAB
    if %USERNAME%==IAN GOTO FAB
    if %USERNAME%==MAIA GOTO FAB
    if %USERNAME%==VIVALTER GOTO FAB
    if %USERNAME%==MARILIA GOTO FAB
    if %USERNAME%==julio GOTO FAB
    if %USERNAME%==JAIRO GOTO FAB
    if %USERNAME%==RCOTRIM GOTO FAB
    if %USERNAME%==SUELI GOTO FAB
    if %USERNAME%==DENISEF GOTO FAB
    if %USERNAME%==JVIEIRA GOTO FAB
    if %USERNAME%==GMBATISTA GOTO FAB
    if %USERNAME%==AFONSO GOTO FAB
    if %USERNAME%==ALEX GOTO FAB
    if %USERNAME%==ANASCIMENTO GOTO FAB
    if %USERNAME%==MFERNANDES GOTO FAB
    if %USERNAME%==CARLINHOS GOTO FAB
    if %USERNAME%==DSILVA GOTO FAB
    if %USERNAME%==RONALDD GOTO FAB
    if %USERNAME%==MLPEREIRA GOTO FAB
    if %USERNAME%==MFERNANDES GOTO FAB
    if %USERNAME%==Manuelcosta GOTO FAB

    if %USERNAME%==JUNIOR GOTO ADM
    if %USERNAME%==SILEIDE GOTO ADM
    if %USERNAME%==FELIX GOTO ADM
    if %USERNAME%==MPOPULO GOTO ADM
    if %USERNAME%==BATAIDE GOTO ADM
    if %USERNAME%==KESTEVES GOTO ADM
    if %USERNAME%==DMOURA GOTO ADM
    if %USERNAME%==TMK1 GOTO ADM
    if %USERNAME%==TMK4 GOTO ADM
    if %USERNAME%==TMK12 GOTO ADM
    if %USERNAME%==TMK19 GOTO ADM
    if %USERNAME%==TMK24 GOTO ADM
    if %USERNAME%==TCOSTA GOTO ADM
    if %USERNAME%==MOLIVIA GOTO ADM
    if %USERNAME%==ANDREZZA GOTO ADM
    if %USERNAME%==GDIAS GOTO ADM
    if %USERNAME%==TMLIMA GOTO ADM
    if %USERNAME%==VITA GOTO ADM
    if %USERNAME%==MMENDONCA GOTO ADM
    if %USERNAME%==LUCIAFARO GOTO ADM
    if %USERNAME%==ACORDEIRO GOTO ADM
    if %USERNAME%==CLAUDIA GOTO ADM
    if %USERNAME%==MPONTES GOTO ADM
    if %USERNAME%==DRENY GOTO ADM
    if %USERNAME%==WILMA GOTO ADM
    if %USERNAME%==LFERREIRA GOTO ADM
    if %USERNAME%==TGOMES GOTO ADM
    if %USERNAME%==TMALAQUIAS GOTO ADM
    if %USERNAME%==MBESSI GOTO ADM
    if %USERNAME%==KELIA GOTO ADM
    if %USERNAME%==KELLYC GOTO ADM
    if %USERNAME%==SANDRINHA GOTO ADM
    if %USERNAME%==DMACHADO GOTO ADM
    if %USERNAME%==MAZEVEDO GOTO ADM
    if %USERNAME%==JBIZZO GOTO ADM

    :ADM
    net.exe use X: \\server-3\ADM
    net.exe use P: \\server-3\PUBLICO
    net.exe use U: \\server-3\USERS
    net.exe use L: \\server-1\STARSOFT
    if %USERNAME%==WILMA GOTO BANCOS
    if %USERNAME%==LFERREIRA GOTO BANCOS
    if %USERNAME%==GDIAS GOTO BANCOS
    if %USERNAME%==SANDRINHA GOTO BANCOS
    if %USERNAME%==DMACHADO GOTO BANCOS
    if %USERNAME%==MAZEVEDO GOTO BANCOS
    if %USERNAME%==MMENDONCA GOTO ANTIGOS
    if %USERNAME%==LUCIAFARO GOTO ANTIGOS
    if %USERNAME%==ACORDEIRO GOTO ANTIGOS
    GOTO RESUME

    :FAB
    net.exe use F: \\server-3\FABRICA
    net.exe use P: \\server-3\PUBLICO
    net.exe use U: \\server-3\USERS
    GOTO RESUME

    :BANCOS
    net.exe use I: \\server-3\BRADESCO
    if %USERNAME%==WILMA GOTO APB
    if %USERNAME%==LFERREIRA GOTO APB
    if %USERNAME%==GDIAS GOTO ACR
    if %USERNAME%==MAZEVEDO GOTO ANTIGOS
    GOTO RESUME

    :APB
    net.exe use R: \\server-8\CNAB APB
    if %USERNAME%==WILMA GOTO DECISOR
    GOTO RESUME

    :ACR
    net.exe use V: \\server-8\CNAB ACR
    GOTO RESUME

    : DECISOR
    net.exe use G: \\server-3\SYSFAET2
    GOTO RESUME

    :ANTIGOS
    net.exe use F: \\server-3\SYSFAET
    net.exe use G: \\server-3\SYSFAET2
    GOTO RESUME

    :RESUME
    set SERVER=server-2
    set sERVERX=server-1
    echo.

    • Sugerido como Resposta cacausexylove sexta-feira, 19 de novembro de 2010 04:42
    • Não Sugerido como Resposta Fábio JrModerator sexta-feira, 13 de janeiro de 2012 10:50
    quarta-feira, 8 de outubro de 2008 11:29
  • 'OBJETO QUE MAPEIA DRIVES
    Set objNetwork = CreateObject("WScript.Network") 
    
    
    'Coloca em uma variavel o usuario atual
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    strUsername = WshNetwork.UserName
    
    
    'CADA if %USERNAME%==JBIZZO GOTO ADM VC TRANSFORMA PARA
    ' if strUsername="JBIZZO" then call ADM()
    
    if strUsername="VANDRELEI" then call FAB()
    if strUsername="SANDRINHA" then call BANCOS()
    
    
    
    'CADA LABEL DO BATCH VC TRANSFORMA NUMA SUB
    'DEIXE AS SUB POR ÚLTIMO NO SCRIPT
    'EXEMPLOS:
    sub FAB()
    	objNetwork.MapNetworkDrive "f:" , "\\server-3\FABRICA"
    	objNetwork.MapNetworkDrive "p:" , "\\server-3\PUBLICO"
    	objNetwork.MapNetworkDrive "U:" , "\\server-3\USERS"
    
    end sub
    
    suB APB()
    	objNetwork.MapNetworkDrive "R:" , "\\server-8\CNAB APB"
    
    	'cHAMANDO UMA SUB DE DENTRO DE OUTRA SUB
    	if strUsername="WILMA" then call DECISOR
    end sub
     
    sub ACR()
    	objNetwork.MapNetworkDrive "V:" , "\\server-8\CNAB ACR"
    
    end sub
     
    sub DECISOR()
    	objNetwork.MapNetworkDrive "G:" , "\\server-3\SYSFAET2"
    end sub
    
    
    


    Fábio de Paula Junior
    sexta-feira, 13 de janeiro de 2012 11:03
    Moderador