none
Script por GPO RRS feed

  • Pergunta

  • Amigos, alguém conhece algum script aonde eu possa aplicar ele por GPO, nas estações de trabalho aonde ele mapeie duas unidades de rede do meu servidor de arquivos??? Mais eu quero deixar essa GPO ativa, quero que ela verifique se á unidade mapiada descarta, senão mapeia.

    Eu estava usando o seguinte script mais não deu muito certo, porque quando usuário iniciava o logon por outra vez, com mapeiamento ok, dava erro de script.

    Agradeço desde já a todos!

    'Declarar Variáveis
    '---------------------------------------------------------------------------------------
    Option Explicit
    Dim objNetwork, strRemotePath1, strRemotePath2, strRemotePath3, WshShell, DC, CheckDrive
    Dim strDriveLetter1, strDriveLetter2, strDriveLetter3, DriveLetter, RemotePath, AlreadyConnected, i

    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set DC = WScript.CreateObject("WScript.Network")
    Set CheckDrive = DC.EnumNetworkDrives()
    '---------------------------------------------------------------------------------------

    'Verificar e Mapear Unidade G:
    '---------------------------------------------------------------------------------------

    strDriveLetter1 = "G:"
    RemotePath = "
    \\kelsen\teste1"

    AlreadyConnected = False
    'DC.RemoveNetworkDrive strDriveLetter1
    For i = 0 To CheckDrive.Count - 1 Step 2
    If CheckDrive.Item(i) = strDriveLetter1 Then AlreadyConnected = True
    Next

    If AlreadyConnected = True then
    DC.RemoveNetworkDrive strDriveLetter1
    DC.MapNetworkDrive strDriveLetter1, RemotePath

    Else
    DC.MapNetworkDrive strDriveLetter1, RemotePath

    End if

    sexta-feira, 9 de março de 2007 03:03

Respostas

  • Bom dia Kelsen

    Como vai.

    Tente dessa forma:

    Set objNet = CreateObject("Wscript.Network")
    set objFSO = CreateObject("Scripting.FilesystemObject")

    if (objFSO.DriveExists("X:")) {
       objNet.RemoveNetworkDrive "X:"
       objNet.MapNetworkDrive "k:", "\\server\share"
    end if


    Qualquer coisa post aqui.

     

    Abraço.

    sexta-feira, 9 de março de 2007 12:29