none
Script de Logon na rede 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\defaultTongue TiedtdRegProv")
    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

    terça-feira, 3 de junho de 2008 20:59