none
script de rede para windows que não entra no dominio RRS feed

  • Pergunta


  • Pessoal,

    Preciso de um script que mapeie unidades de rede do servidor passando paramentros de usuário e senha.

    Tenho 3 máquinas de diretores com windows vista home basic que não entra no domínio e preciso que os diretores acessem os drivers de rede e a impressora compartilhada da máquina da secretaria. Eles tem usuário e senha no domínio.

    a minha idéia é colocar esse script para rodar no iniciar do windows.

    Alguém sabe com fazer?
    terça-feira, 7 de abril de 2009 14:05

Respostas



  • Pessoal, resolvi minha questão.
    Como o windows vista home basic não entra no domínio, todos acessos aos recursos da rede não funcionam sem pedir usuário e senha (lógico) pois não tinha autenticação no domínio.

    Então para resolver isto e os diretores com as máquinas windows vista home basic pudessem acessar os drivers de rede e a impressora de rede fiz da seguinte forma.

    1. Instalei a impressora como sendo local ná máquina na porta LPT1.
    2. Criei um script .bat apontando a porta LPT1 para o caminho da impressora na rede.
     
    net use /delete LPT1  (Esse delete é porque toda vez que liga a máquina novamente a conexão é perdida e o caminho fica preso sendo necessário matar primeiro para depois conectar novamente)
    net use LPT1 \\maq01\hp /persistent:yes /user:dominiodarede.\usuario senha (apontametno da lpt1 para a impressora na máquina que está compartilhada)
    rem Logon script padrao para rede.
    net time \\servidor /set /yes
    c:\scriptnet  (chamda do script .vbs mapeando as pastas de rede)
    @echo off

    3. Criei um script .vbs mapeando os drivers de rede.

    Option Explicit
    Dim objNetwork
    Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile

    strDriveLetter = "H:"
    strRemotePath = \\servidor\pasta1
    strUser = "usuario"
    strPassword = "senha"
    strProfile = "false"

    Set objNetwork = WScript.CreateObject("WScript.Network")
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, strProfile, strUser, strPassword

    objNetwork.MapNetworkDrive "P:", "\\servidor\pasta2"
    objNetwork.MapNetworkDrive "Q:", \\servidor\pasta3
    objNetwork.MapNetworkDrive "R:", \\servidor\pasta4

    WScript.Quit
     

    4 . Coloquei os dois scripts em uma pasta na máquina e criei um atalho no desktop para o script.bat. Lembrem o scrpit.bat chama o .vbs.

    5. Aí quando a máquina é ligada e pega o endereço ip é só o Diretor clica duas vezes no ícone do script  que a IMPRESSORA e os DRIVERS de rede estão disponíveis para uso. 

    LOGIN automático nos recursos da rede em windows que não entra no domínio.


    Se alguém tiver nessa mesma situação taí o que pode ser feito.

    obrigado a todos pelas resposta e contribuição.

    Att,

    Leonardo Alves




    • Marcado como Resposta lalves quarta-feira, 8 de abril de 2009 18:58
    quarta-feira, 8 de abril de 2009 18:58

Todas as Respostas

  • Olá,

    Não é nada seguro passar usuário e senha por script, como alternativa você pode fazer o seguinte:

    1 - Coloque o usuário e senha da maquina local igual ao usuário e senha que você criou no dominio.

    2 - Utilize o script abaixo para mapear:

    Set wshNetwork = CreateObject("WScript.Network")
    Set oDrives = WshNetwork.EnumNetworkDrives

    'COLOCAR AS UNIDADES QUE DESEJA MAPEAR -> AQUI ELE SO DESCONECTA
    DriveMapper "G:"

    wshNetwork.MapNetworkDrive "G:", "\\server01\share"

    Sub DriveMapper(Drive)
    For i = 0 to oDrives.Count -1 Step 2
       if LCase(Drive) = LCase(oDrives.Item(i)) then
          WshNetwork.RemoveNetworkDrive Drive, true, true
       End if
    Next
    End sub


    Salve com a extensão .vbs e faça os testes.

    Poste os resultados.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 7 de abril de 2009 16:24
  • Realmente não é seguro passar usuário e senha por script, o que você pode fazer é criptografar o seu script com o Supercrypt (http://www.moernaut.com/default.aspx?item=supercrypt), ele criptografa programas e comandos juntamente com uma credencial para ser utilizada, como tanto a credencial como o comando é criptografado acaba ficando mais seguro. Agora, só por curiosidade, porque eles não se logan no domínio? Atenciosamente, Luana.
    terça-feira, 7 de abril de 2009 17:16


  • Posso fazer ?


    DriveMapper "G:"

    wshNetwork.MapNetworkDrive "G:", "\\server01\share"

    DriveMapper "H:"

    wshNetwork.MapNetworkDrive "H:", \\server01\share2"



    e a impressora? a impressora está está compartilhada na máquina da secretária  cujo nome é sec01.
    terça-feira, 7 de abril de 2009 17:17


  • Windows vista home basic não trabalha com domínios. Não é sistema de rede.
    terça-feira, 7 de abril de 2009 17:19
  • Set WshNetwork = CreateObject("WScript.Network")
    WshNetwork.AddWindowsPrinterConnection "\\maquina\impressora"
    terça-feira, 7 de abril de 2009 20:13
  • Olá,

    Segue o script para impressoras:

    Set objNetwork = CreateObject("WScript.Network")
    strImpressora = "\\servidor\impressora"

    'CONECTA A NOVA IMPRESSORA (TEM QUE TER O DRIVER INSTALADO)
    ObjNetWork.AddWindowsPrinterConnection strImpressora

    'DEIXA A NOVA IMPRESSORA COMO PADRAO
    objNetwork.SetDefaultPrinter strImpressora


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 7 de abril de 2009 20:49
  • O Jesiel lembrou bem, para o script mencionado acima é necessário que já exista o driver na maquina.
    Segue abaixo um script que procura pelo driver e instala a impressoa:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set WshNetwork = CreateObject("WScript.Network")
    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_Printer")

    objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
    Set objDriver = objWMIService.Get("Win32_PrinterDriver")

    Set WshNetwork = CreateObject("WScript.Network")

    WshNetwork.AddWindowsPrinterConnection "\\maquina\impressora"
        objDriver.Name = "Nome da Impressora"
        objDriverPath = "\\local\dos\Drivers"  << pasta do driver
        objInfname = "\\arquivo\inf\Drivers\driver.INF" << arquivo do driver (.inf)
        intResult = objDriver.AddPrinterDriver(objDriver)

    []'s

    Luana.
    terça-feira, 7 de abril de 2009 20:58


  • Pessoal, resolvi minha questão.
    Como o windows vista home basic não entra no domínio, todos acessos aos recursos da rede não funcionam sem pedir usuário e senha (lógico) pois não tinha autenticação no domínio.

    Então para resolver isto e os diretores com as máquinas windows vista home basic pudessem acessar os drivers de rede e a impressora de rede fiz da seguinte forma.

    1. Instalei a impressora como sendo local ná máquina na porta LPT1.
    2. Criei um script .bat apontando a porta LPT1 para o caminho da impressora na rede.
     
    net use /delete LPT1  (Esse delete é porque toda vez que liga a máquina novamente a conexão é perdida e o caminho fica preso sendo necessário matar primeiro para depois conectar novamente)
    net use LPT1 \\maq01\hp /persistent:yes /user:dominiodarede.\usuario senha (apontametno da lpt1 para a impressora na máquina que está compartilhada)
    rem Logon script padrao para rede.
    net time \\servidor /set /yes
    c:\scriptnet  (chamda do script .vbs mapeando as pastas de rede)
    @echo off

    3. Criei um script .vbs mapeando os drivers de rede.

    Option Explicit
    Dim objNetwork
    Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile

    strDriveLetter = "H:"
    strRemotePath = \\servidor\pasta1
    strUser = "usuario"
    strPassword = "senha"
    strProfile = "false"

    Set objNetwork = WScript.CreateObject("WScript.Network")
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, strProfile, strUser, strPassword

    objNetwork.MapNetworkDrive "P:", "\\servidor\pasta2"
    objNetwork.MapNetworkDrive "Q:", \\servidor\pasta3
    objNetwork.MapNetworkDrive "R:", \\servidor\pasta4

    WScript.Quit
     

    4 . Coloquei os dois scripts em uma pasta na máquina e criei um atalho no desktop para o script.bat. Lembrem o scrpit.bat chama o .vbs.

    5. Aí quando a máquina é ligada e pega o endereço ip é só o Diretor clica duas vezes no ícone do script  que a IMPRESSORA e os DRIVERS de rede estão disponíveis para uso. 

    LOGIN automático nos recursos da rede em windows que não entra no domínio.


    Se alguém tiver nessa mesma situação taí o que pode ser feito.

    obrigado a todos pelas resposta e contribuição.

    Att,

    Leonardo Alves




    • Marcado como Resposta lalves quarta-feira, 8 de abril de 2009 18:58
    quarta-feira, 8 de abril de 2009 18:58
  • Olá Luana,


    infelizmente, criptografia também não é nada seguro... dificulta, mas qualquer usuário mais esperto consegue burlar. Senha em script não é legal mesmo...

    []s,

    Vinicius Canto
    MVP Admin Frameworks
    http://viniciuscanto.blogspot.com
    Vinicius Canto MVP Admin Frameworks Blog: http://viniciuscanto.blogspot.com
    sexta-feira, 10 de abril de 2009 13:51
    Moderador