none
Script de logon RRS feed

  • Pergunta

  •  

    Prezados,

    Boa tarde!

     

    Segue o Script que eu criei abaixo.

    Mas eu gostaria de fazer algumas mudanças.

     

    1. Na primeira parte de boas vindas, sempre que o usuário faz logon na rede, aparece a mensagem para ele, Eu acho que depois de algumas vezes, os usuários vão ficar enchendo o saco porque eles precisam ficar clicando no OK.

     

    2. Eu gostaria de instalar as impressoras a partir do grupo que o usuário pertence.

     

    3. Gostaria de saber também que sem como fazer o backup dos "FAVORITOS" e "DESKTOP" sempre que o usuário fizer logon na rede, já que o perfil fica local nas máquinas.

     

    Hoje eu utilizo dessa forma.

     

    @echo off

    c:
    cd\
    cd %Systemdrive%\docume~1\

    if not exist %Username%.dominio\desktop\ goto 02

    cd %username%.pastanet\
    xcopy favoritos u:\pasta\favoritos /E /D /y
    xcopy desktop u:\pasta\desktop /E /D /y
    GOTO FIM

    :02
    cd %username%\
    xcopy favoritos u:\pasta\favoritos /E /D /y
    xcopy desktop u:\pasta\desktop /E /D /y

    :FIM

    exit
    -----------------------------------------------------------------------------------------------------------------------------------------------------------------------

    script em VBS.

    '===================================================================
    ' Boas Vindas

    Set objUser = WScript.CreateObject("WScript.Network")
    wuser=objUser.UserName
    If Time <= "12:00:00" Then
    MsgBox ("Bom Dia "+Wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
    ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
    MsgBox ("Boa Tarde "+Wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
    Else
    MsgBox ("Boa Noite "+wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
    End If

    '================================================================
    ' Mapear Driver de Rede

    Set WshNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    WshNetwork.RemoveNetworkDRIVE "F:"
    WshNetwork.MapNetworkDrive "F:", "\\serv\Apps$","true"

    Set WshNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    WshNetwork.RemoveNetworkDRIVE "G:"
    WshNetwork.MapNetworkDrive "G:", "\\serv\Group$","true"

    Set WshNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    WshNetwork.RemoveNetworkDRIVE "I:"
    WshNetwork.MapNetworkDrive "I:", "\\serv\MSI","true"

    Set WshNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    WshNetwork.RemoveNetworkDRIVE "H:"
    WshNetwork.MapNetworkDrive "H:", "\\serv\PSTS$","true"

    Set WshNetwork = CreateObject("WScript.Network")
    ON ERROR RESUME NEXT
    WshNetwork.RemoveNetworkDRIVE "P:"
    WshNetwork.MapNetworkDrive "P:", "\\serv\Public$","true"

    '================================================================
    ' Mapear impressora da INFORMATICA

    Set WshNetwork = CreateObject("WScript.Network")

    WshNetwork.AddWindowsPrinterConnection "\\serv\LASER_T420_01"
    WshNetwork.SetDefaultPrinter "\\serv\LASER_T420_01"

    '===============================================================
    ' Horário de Verão

    Const HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "."
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\defaulttdRegProv")
    strKeyPath = "System\CurrentControlSet\Control\TimeZoneInformation"
    strValueName = "DaylightName"
    strValue= "E. South America Daylight Time"
    oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
    strDWORDValueName = "DisableAutoDaylightTimeSet"
    oReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName

    '===============================================================
    ' Sincronizar horário com o Servidor

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set objShell = CreateObject("WScript.shell")
    strCmd = "net time \\serv\ /set /yes"
    set objexec = objshell.exec(strcmd)

    '===================================================================
    ' Remover MSN Messenger

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set objShell = CreateObject("WScript.shell")
    strCmd = "RunDll32 advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove"
    set objexec = objshell.exec(strcmd)

    Wscript.Quit

    segunda-feira, 23 de junho de 2008 18:32

Respostas

  • Joaquimlvjunior,

     

    Segue o script exbindo o nome de exibição do user cadastrado no AD fiz uma pequena modifição na variavel da mensagem. Se o post foi ultil não esqueça de marcar como resposta. abç!!!

     

     

    Code Snippet

    'Boas vindas

    'Por Leonardo Couto Conrado

    '10.07.2008

     

     

    'Boas Vindas
    Dim ContentText, ArquivoSize, Path
    Const ForReading = 1, ForWriting = 2, AlreadyShowed = 1, ForAppending = 8

    On error resume next
    Business = "Target Engenharia"
    Set objfso = createobject("Scripting.Filesystemobject")
    PathDocs
    Set objfileApp = objfso.opentextfile(Path, ForAppending, True)
    Set Arquivo = objfso.GetFile(Path)

    Arquivo.attributes = 2
    ArquivoSize = Arquivo.size
    'wscript.echo "Tamanho "& ArquivoSize
    objfileApp.close

    Function ReadTxT()
     Set objfileRead = objfso.opentextfile(Path, ForReading, True)
     
     If  ArquivoSize = 0 then 'or ContentText>QntCompradores then
      Valor = 0
      WriteTxT Valor
     End if
     ContentText = objfileRead.Readline
     objfileRead.close
    End Function

    Function WriteTxT(Text)
    'wscript.echo "Camihno " & Path
     Set objfileWrite = objfso.opentextfile(Path, ForWriting)
     objfileWrite.WriteLine Text
     objfileWrite.close
    End Function

    'CreateControlinDocs
    'wscript.echo ContentText
    Set oADsSysInfo = CreateObject("ADSystemInfo")

    sADsUser = oADsSysInfo.UserName
    wscript.echo oADsSysInfo.samaccountname
    set objUser = GetObject ("LDAP://" & sADsUser )

    DisplayName = objUser.displayName

    ReadTxT
    'wscript.echo "ContextFile para o IF " & ContentText
    If ContentText <> 1 then
     ContextMsg = Ucase(DisplayName) & ", você acaba de ingressar na rede corporativa da " & Business &", por favor respeite as políticas de segurança e bom trabalho!"
     If Time <= "12:00:00" Then
      MsgBox ("Bom Dia " & ContextMsg)
      ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
       MsgBox ("Boa Tarde " & ContextMsg)
      Else
       MsgBox ("Boa Noite " & ContextMsg)
     End If
     WriteTxT AlreadyShowed
    End if 

    Function PathDocs()
     Const MY_DOCUMENTS = &H5&
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.Namespace(MY_DOCUMENTS)
     Set objFolderItem = objFolder.Self
     NameFileTxt = "\ControlWellcome.txt"
     'Wscript.Echo objFolderItem.Path
     Path = objFolderItem.Path & NameFileTxt
     'Wscript.Echo Path

    End Function

     

     

     


     

     

    quinta-feira, 10 de julho de 2008 20:37
  •  Joaquimlvjunior ,

     

     

    Segue script como vc precisava dar uma olhada já testei e tá blz. O de boas vindas faz o controle se o usuário já logou ou não na rede através de um TXT que fica localizado na pasta Documentos dele o path dos Meus Documentos é encontrado automaticamente o TXT tá com atributo Oculto. Testa ele aí tb, abç!! Se o post foi util marque como resposta!

     

     

    Code Snippet

    'Script Boas Vindas
    'Por Leonardo Couto Conrado
    '10.07.2008

     

    'Boas Vindas
    On Error Resume Next 'Esse script de Boas Vindas não é necessario mudar nada somente executar

    Dim ContentText, ArquivoSize, Path
    Const ForReading = 1, ForWriting = 2, AlreadyShowed = 1, ForAppending = 8

    Set objfso = createobject("Scripting.Filesystemobject")
    PathDocs
    Set objfileApp = objfso.opentextfile(Path, ForAppending, True)
    Set Arquivo = objfso.GetFile(Path)

    Arquivo.attributes = 2
    ArquivoSize = Arquivo.size
    'wscript.echo "Tamanho "& ArquivoSize
    objfileApp.close

    Function ReadTxT()
     Set objfileRead = objfso.opentextfile(Path, ForReading, True)
     
     If  ArquivoSize = 0 then 'or ContentText>QntCompradores then
      Valor = 0
      WriteTxT Valor
     End if
     ContentText = objfileRead.Readline
     objfileRead.close
    End Function

    Function WriteTxT(Text)
    'wscript.echo "Camihno " & Path
     Set objfileWrite = objfso.opentextfile(Path, ForWriting)
     objfileWrite.WriteLine Text
     objfileWrite.close
    End Function

    'CreateControlinDocs
    'wscript.echo ContentText
    Set objUser = WScript.CreateObject("WScript.Network")
    wuser=objUser.UserName
    ReadTxT
    'wscript.echo "ContextFile para o IF " & ContentText
    If ContentText <> 1 then
     If Time <= "12:00:00" Then
      MsgBox ("Bom Dia "+Wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
      ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
       MsgBox ("Boa Tarde "+Wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
      Else
       MsgBox ("Boa Noite "+wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
     End If
     WriteTxT AlreadyShowed
    End if 

    Function PathDocs()
     Const MY_DOCUMENTS = &H5&
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.Namespace(MY_DOCUMENTS)
     Set objFolderItem = objFolder.Self
     NameFileTxt = "\ControlWellcome.txt"
     'Wscript.Echo objFolderItem.Path
     Path = objFolderItem.Path & NameFileTxt
     'Wscript.Echo Path

    End Function

    '----------------------------------------------------------------------------------------------------
    'Script Mapeamento de impressora padrão por grupo do usuário
    'Por Leonardo Couto Conrado
    '02.07.2008

    On Error resume next

    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")

    For Each objGroup In objUser.Groups

        Select Case objGroup.Name
            Case "SF_Armazem" 'Especifique um dos Grupos do AD que vc quer testar em cada case
       objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Armazem" ''Endereço da impressora para o grupo acima(SF_Armazem)
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Armazem" 'Set Como default a impressora acima para o grupo SF_Armazem
            Case "SF_Operacoes"
                objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
            Case "SF_Vendas"
       objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
            Case "SF_Administrativo"
                objNetwork.AddWindowsPrinterConnection"\\SERVIDOR\IMPRESSORA_SF_Administrativo"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Administrativo"
        End Select

    Next

     

     

    quinta-feira, 10 de julho de 2008 15:20

Todas as Respostas

  • Henrique,

    Boa noite, muito bom esses scripts, so uma pergunta, como eu faço pra pegar não o logon do usuário mas sim o nome completo dele que está no AD na tela de boas vindas.

    Desde já agradeço

    Joaquim Luiz
    quinta-feira, 10 de julho de 2008 01:30
  • Henrique_145,

     

     

     

    Ai vc já tem um dominio instalado em sua rede? Ou vc trabalha com grupo de trabalho?

     

     

     

    att,

     

     

    Leonardo Couto Conrado.

    quinta-feira, 10 de julho de 2008 11:44
  • sim, já tenho um dominio na rede, server 2003
    quinta-feira, 10 de julho de 2008 12:50
  •  Joaquimlvjunior,

     

     

    Enquanto fazer o backup da pasta Favoritos, Desktop não é aconselhavel fazer isso via script o certo é fazer pelo dominio que oferece essas facilidades(Perfil movel, pastas offline etc)  abra uma thread no forum technet windows 2003 server http://forums.microsoft.com/TechNet-BR/ShowForum.aspx?ForumID=706&SiteID=29 eles irão lhe dar o suporte de como fazer isso. O resto sim podemos fazer com o script já estou desenvolvendo um aq de acordo com  a sua necessidade posto daq a pouco.

     

     

    att,

     

     

    Leonardo Couto.

    quinta-feira, 10 de julho de 2008 13:23
  •  Joaquimlvjunior ,

     

     

    Segue script como vc precisava dar uma olhada já testei e tá blz. O de boas vindas faz o controle se o usuário já logou ou não na rede através de um TXT que fica localizado na pasta Documentos dele o path dos Meus Documentos é encontrado automaticamente o TXT tá com atributo Oculto. Testa ele aí tb, abç!! Se o post foi util marque como resposta!

     

     

    Code Snippet

    'Script Boas Vindas
    'Por Leonardo Couto Conrado
    '10.07.2008

     

    'Boas Vindas
    On Error Resume Next 'Esse script de Boas Vindas não é necessario mudar nada somente executar

    Dim ContentText, ArquivoSize, Path
    Const ForReading = 1, ForWriting = 2, AlreadyShowed = 1, ForAppending = 8

    Set objfso = createobject("Scripting.Filesystemobject")
    PathDocs
    Set objfileApp = objfso.opentextfile(Path, ForAppending, True)
    Set Arquivo = objfso.GetFile(Path)

    Arquivo.attributes = 2
    ArquivoSize = Arquivo.size
    'wscript.echo "Tamanho "& ArquivoSize
    objfileApp.close

    Function ReadTxT()
     Set objfileRead = objfso.opentextfile(Path, ForReading, True)
     
     If  ArquivoSize = 0 then 'or ContentText>QntCompradores then
      Valor = 0
      WriteTxT Valor
     End if
     ContentText = objfileRead.Readline
     objfileRead.close
    End Function

    Function WriteTxT(Text)
    'wscript.echo "Camihno " & Path
     Set objfileWrite = objfso.opentextfile(Path, ForWriting)
     objfileWrite.WriteLine Text
     objfileWrite.close
    End Function

    'CreateControlinDocs
    'wscript.echo ContentText
    Set objUser = WScript.CreateObject("WScript.Network")
    wuser=objUser.UserName
    ReadTxT
    'wscript.echo "ContextFile para o IF " & ContentText
    If ContentText <> 1 then
     If Time <= "12:00:00" Then
      MsgBox ("Bom Dia "+Wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
      ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
       MsgBox ("Boa Tarde "+Wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
      Else
       MsgBox ("Boa Noite "+wuser+", você acaba de ingressar na rede corporativa da Target Engenharia, por favor respeite as políticas de segurança e bom trabalho!")
     End If
     WriteTxT AlreadyShowed
    End if 

    Function PathDocs()
     Const MY_DOCUMENTS = &H5&
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.Namespace(MY_DOCUMENTS)
     Set objFolderItem = objFolder.Self
     NameFileTxt = "\ControlWellcome.txt"
     'Wscript.Echo objFolderItem.Path
     Path = objFolderItem.Path & NameFileTxt
     'Wscript.Echo Path

    End Function

    '----------------------------------------------------------------------------------------------------
    'Script Mapeamento de impressora padrão por grupo do usuário
    'Por Leonardo Couto Conrado
    '02.07.2008

    On Error resume next

    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")

    For Each objGroup In objUser.Groups

        Select Case objGroup.Name
            Case "SF_Armazem" 'Especifique um dos Grupos do AD que vc quer testar em cada case
       objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Armazem" ''Endereço da impressora para o grupo acima(SF_Armazem)
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Armazem" 'Set Como default a impressora acima para o grupo SF_Armazem
            Case "SF_Operacoes"
                objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
            Case "SF_Vendas"
       objNetwork.AddWindowsPrinterConnection "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Operacoes"
            Case "SF_Administrativo"
                objNetwork.AddWindowsPrinterConnection"\\SERVIDOR\IMPRESSORA_SF_Administrativo"
       objNetwork.SetDefaultPrinter "\\SERVIDOR\IMPRESSORA_SF_Administrativo"
        End Select

    Next

     

     

    quinta-feira, 10 de julho de 2008 15:20
  • Bah Leonardo, muito legal, criou o arquivo nos meus documentos e funcionou so que oq acontece, tipo será que tem como de ao invés de aparecer o login do cara aparecer o nome mesmo dele q está no ad, tipo assim

    Login: 102030 - O cara loga com isso
    Nome: Joaquim Luiz

    Tipo isso não aparecer o login e sim o nome dele, mas mesmo assim já te agradeço pela atenção
    quinta-feira, 10 de julho de 2008 20:11
  • Joaquimlvjunior,

     

    Segue o script exbindo o nome de exibição do user cadastrado no AD fiz uma pequena modifição na variavel da mensagem. Se o post foi ultil não esqueça de marcar como resposta. abç!!!

     

     

    Code Snippet

    'Boas vindas

    'Por Leonardo Couto Conrado

    '10.07.2008

     

     

    'Boas Vindas
    Dim ContentText, ArquivoSize, Path
    Const ForReading = 1, ForWriting = 2, AlreadyShowed = 1, ForAppending = 8

    On error resume next
    Business = "Target Engenharia"
    Set objfso = createobject("Scripting.Filesystemobject")
    PathDocs
    Set objfileApp = objfso.opentextfile(Path, ForAppending, True)
    Set Arquivo = objfso.GetFile(Path)

    Arquivo.attributes = 2
    ArquivoSize = Arquivo.size
    'wscript.echo "Tamanho "& ArquivoSize
    objfileApp.close

    Function ReadTxT()
     Set objfileRead = objfso.opentextfile(Path, ForReading, True)
     
     If  ArquivoSize = 0 then 'or ContentText>QntCompradores then
      Valor = 0
      WriteTxT Valor
     End if
     ContentText = objfileRead.Readline
     objfileRead.close
    End Function

    Function WriteTxT(Text)
    'wscript.echo "Camihno " & Path
     Set objfileWrite = objfso.opentextfile(Path, ForWriting)
     objfileWrite.WriteLine Text
     objfileWrite.close
    End Function

    'CreateControlinDocs
    'wscript.echo ContentText
    Set oADsSysInfo = CreateObject("ADSystemInfo")

    sADsUser = oADsSysInfo.UserName
    wscript.echo oADsSysInfo.samaccountname
    set objUser = GetObject ("LDAP://" & sADsUser )

    DisplayName = objUser.displayName

    ReadTxT
    'wscript.echo "ContextFile para o IF " & ContentText
    If ContentText <> 1 then
     ContextMsg = Ucase(DisplayName) & ", você acaba de ingressar na rede corporativa da " & Business &", por favor respeite as políticas de segurança e bom trabalho!"
     If Time <= "12:00:00" Then
      MsgBox ("Bom Dia " & ContextMsg)
      ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
       MsgBox ("Boa Tarde " & ContextMsg)
      Else
       MsgBox ("Boa Noite " & ContextMsg)
     End If
     WriteTxT AlreadyShowed
    End if 

    Function PathDocs()
     Const MY_DOCUMENTS = &H5&
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.Namespace(MY_DOCUMENTS)
     Set objFolderItem = objFolder.Self
     NameFileTxt = "\ControlWellcome.txt"
     'Wscript.Echo objFolderItem.Path
     Path = objFolderItem.Path & NameFileTxt
     'Wscript.Echo Path

    End Function

     

     

     


     

     

    quinta-feira, 10 de julho de 2008 20:37
  • Bah velho eh o cara, funcionou perfeito aqui já vo colocar hj pra rodar amanhã cedo nas maquinas.

    Estou colocando junto o script pro usuário não poder logar em mais de 1 maquina ao mesmo tempo também.

    Agradeço mesmo pela atenção.
    quinta-feira, 10 de julho de 2008 20:43
  •  

    heheheheh!!!! É isso aí parabéns!!! Só lembro mais uma vez de não esquecer de marcar o post como resposta esse script me deu o maior trabalhão hehehehhee preciso dos pontos pela colaboração e assim agilizamos o tempo de procura por resposta aqui no forum!!!

     

     

    abç,

     

    Leonardo Couto.

    quinta-feira, 10 de julho de 2008 20:48
  • Leonardo,

     

    Nós temos domínio com o Win Server 2003.

     

    Então, como já fazia muito tempo que eu tinha mando  esse post, eu acabei achando como mapear as unidades por grupo.

     

    Mas agora eu gostaria de saber, como eu faço para copiar um arquivo de uma pasta compartinhada para a máquina do usuário.

     

    exemplo:

     

    O arquivo está no \\servidor\netlogon\ arquivo.txt e precisa ser copiado para o C:\ da máquina. Como eu faço isso???

     

    Fico no aguardo e muito obrigado!!

     

    Att,

     

    Henrique

    quinta-feira, 10 de julho de 2008 21:19
  •  Boa noite Henrique_145

     

     

     

    Marque o  post que respondi como resposta para finalizar a thread que foi aberto por vc (script de logon). E depois abra uma nova thread no forum com esse novo assunto para que eu ou outro usuário possa responder. Desculpas é por que são as normas do fórum.

     

     

     

    Att,

     

     

    Leonardo Couto.

    quinta-feira, 10 de julho de 2008 23:15
  • Boa Noite Joaquim!
    Você conseguiu ajustar seu script, para pegar o nome completo da pessoa?
    Eu consegui
    Caso nao ainda posso lhe ajudar
    segunda-feira, 4 de agosto de 2008 02:02
  •  

    Ola muito bom este post usei ele aqui na empresa, mas estou precisando de mais uma dica

    preciso fazer o login do usuario da rede para que o mesmo mapei uma unidade de rede F:\SERVIDOR\PASTA\NOMEDELE

     

    como fazer isso atraves do script que esta pasta só a permissao para quem é relamente o usuario dela

     

    grato

     

    sexta-feira, 29 de agosto de 2008 19:11
  • Olá,

     

    Então... via script eu não sei, mas vc pode usar a opção que tem no AD... 

     

    Abra as propriedades do usuário, clique na guia Perfil>clique na opção "Conectar". Informe uma letra para mapear a unidade e coloque \\servidor\nomedousuario$ para isso vc deve compartilhar a pasta com segurança para que ela fica oculta para quem colocar \\servidor\ .

     

    Não sei se ajudou, mas eu utilizo assim aqui!

     

    Att,

     

    Henrique

    segunda-feira, 1 de setembro de 2008 19:25
  • Então, o SCRIPT até funcionou, mas tenho duas duvidas:

    E se eu não quiser o NOME DO USUÁRIO em UperCase e quiser que o nome seja exibido exatamente como está no AD?

    Outra, como faço para adicionar um titulo a POP UP de boas vindas?

     

    ABRAÇO

    segunda-feira, 25 de abril de 2011 15:20
  •  

    Descobri: É só tirar o Ucase, noc aso do tittulo adicionar a na linha das msgbox o texto: vbInformation, "Titulo da MsgBox"

    vbInformation = Icone de Informação

    vbCritical = Icone com X vermelho para eventos criticos

    vbExclamation = Icone Amarelo com sinal de exclamação

     

    Então a message box ficara assim, sem o UPERCASE e com Titulo da PopUp:

    If ContentText <> 1 then
    ContextMsg =(DisplayName) & ", você acaba de ingressar na rede corporativa da EMPRESATESTE. Todos os Drivers e impressoras foram mapeados com sucesso! Lembre-se, use seu equipamento com responsabilidade e bom trabalho!"
     'Title = " Trust Solutions Brasil Sistemas Ltda."
    'Response = ContextMsg(ContextMsg, 64, Title)
    If Time <= "12:00:00" Then
     MsgBox ("Bom Dia " & ContextMsg), vbInformation," TITULO DA MSGBOX"
     ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
    MsgBox ("Boa Tarde " & ContextMsg), vbInformation," TITULO DA MSGBOX."
    Else
    MsgBox ("Boa Noite " & ContextMsg), vbInformation,"TITULO DA MSGBOX"
    End If
     WriteTxT AlreadyShowed
    End if
    Fonte: http://www.tomasvasquez.com.br/blog/microsoft-office/vba-emitindo-mensagens-personalizadas-com-msgbox
    • Editado Alex .R.Farias segunda-feira, 25 de abril de 2011 17:20 Adicionando Fonte da Postagem
    segunda-feira, 25 de abril de 2011 17:17