Usuário com melhor resposta
GPO (Mapear unidades de Rede) Não se aplica ao Windows 8 Pro

Pergunta
-
Bom dia!
Alguém já enfrentou problemas com GPO que não se aplica no Windows 8 Pro?
Cenário: Server 2008 = Máquina Cliente: Windows 8 PRO
O script é em .vbs e, quando eu logo no windows 8, simplesmente não mapeia a unidade, se alguém souber informar, agradeço a todos.
Abraços
Douglas Urbano
Respostas
-
Boa tarde,
Solução para o problema de máquinas com Windows 8 não subirem as GPOs. Entrar no Regedit e:
- Clique em Iniciar, digite regedit na caixa Iniciar pesquisa e pressione Enter.
- Localize e, em seguida, clique na seguinte subchave do registro:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
- Aponte para novo e clique em Valor DWORD.
- Digite EnableLinkedConnectionse então pressione Enter.
- Com o botão direito EnableLinkedConnectionse, em seguida, clique em Modificar.
- Na caixa dados do valor , digite 1 e clique em OK.
- Saia do Editor do registro e reinicie o computador.
Douglas Urbano
- Marcado como Resposta Douglas Urbano terça-feira, 26 de fevereiro de 2013 18:17
Todas as Respostas
-
-
-
Douglas,
Aqui no meu ambiente eu substitui as GPOs de mapeamento usando scripts pelas GPO preferences onde mapeio pastas e impressoras tranquilamente e esta funcionando no Windows 8.
É uma alternativa e que recomendo muito.
Abraço.
Eduardo Sena | Analista de Suporte | MSP - Microsoft Student Partner | eduardosena@hotmail.com.br Blog - http://eduardosena.com.br
-
Douglas,
Você já tentou executar esse script manualmente para verificar se ele realiza o mapeamento.
Verifique o nível de configuração do UAC, provavelmente ele estará barrando a execução de arquivos .vbs.
att.
Flavio Lucio de Q. Ferreira
flaviolucioqf@hotmail.com
ticomuai.wordpress.com -
-
-
Bom dia, Flavio!
Claro que posso, vamos lá:
On Error Resume Next
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "NET TIME \\MEUSERVER /SET /Y", 0, True
Set oShell = CreateObject("Shell.Application")
Set wshNetwork = CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
WSHNetwork.RemoveNetworkDrive "G:", True, True
WSHNetwork.RemoveNetworkDrive "H:", True, True
WSHNetwork.RemoveNetworkDrive "I:", True, True
WSHNetwork.RemoveNetworkDrive "J:", True, True
WSHNetwork.RemoveNetworkDrive "K:", True, True
WSHNetwork.RemoveNetworkDrive "L:", True, True
WSHNetwork.RemoveNetworkDrive "M:", True, True
WSHNetwork.RemoveNetworkDrive "N:", True, True
WSHNetwork.RemoveNetworkDrive "O:", True, True
WSHNetwork.RemoveNetworkDrive "P:", True, True
WSHNetwork.RemoveNetworkDrive "Q:", True, True
WSHNetwork.RemoveNetworkDrive "R:", True, True
WSHNetwork.RemoveNetworkDrive "S:", True, True
WSHNetwork.RemoveNetworkDrive "T:", True, True
WSHNetwork.RemoveNetworkDrive "U:", True, True
WSHNetwork.RemoveNetworkDrive "V:", True, True
WSHNetwork.RemoveNetworkDrive "X:", True, True
WSHNetwork.RemoveNetworkDrive "Y:", True, True
WSHNetwork.RemoveNetworkDrive "w:", True, True
WSHNetwork.RemoveNetworkDrive "Z:", True, True
Set wshell = createobject("wscript.network")
user1 = wshell.username
Set FileClass = CreateObject("Scripting.FileSystemObject")
Directory = "\\meuserver\atual\usuarios\" & user1
Directory = "\\meuserver\atual\geral\" & user1
If FileClass.FolderExists (Directory) = False Then
FileClass.CreateFolder (Directory)
End If
WScript.DisconnectObject WSHNetwork
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "I:"
strRemotePath = "\\meuserver\Atual\Usuarios"
Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath _
& "\" & strUserName
wshNetwork.MapNetworkDrive"H:","\\192.168.0.251\ti\ti"
wshNetwork.MapNetworkDrive"S:","\\192.168.0.251\temp\geral"
wshNetwork.MapNetworkDrive"Y:","\\192.168.0.251\estudos"
oShell.NameSpace("H:\").Self.Name = "TI"
oShell.NameSpace("S:\").Self.Name = "Public"
oShell.NameSpace("I:\").Self.Name = "User"
oShell.NameSpace("Y:\").Self.Name = "Study"
Douglas Urbano
-
Bom dia Douglas.
Você tem uma estação com Windows 8 Enterprise para testar? Pois há algumas limitações para aplicação de gpo na versão professional.
O nível funcional do seu domínio está como?[]´s
Att. Marcelo - Analista de Suporte Microsoft - MCITP/MCSA Server Administrator (2012 e 2008) | Hyper-v | SCOM 2007 R2 | E-mail: marcelosep@outlook.com | http://mswiki.wordpress.com
-
-
OK.
Esse seu script está no próprio controlador de domínio ou em outro local da rede? Caso esteja em outro local da rede, experimenta colocar em um diretório no controlador de domínio, compartilhar esse diretório para todos (somente leitura) e ver se a gpo é aplicada no windows 8 e os mapeamentos configurados.[]´s
Att. Marcelo - Analista de Suporte Microsoft - MCITP/MCSA Server Administrator (2012 e 2008) | Hyper-v | SCOM 2007 R2 | E-mail: marcelosep@outlook.com | http://mswiki.wordpress.com
-
-
-
Boa tarde,
Solução para o problema de máquinas com Windows 8 não subirem as GPOs. Entrar no Regedit e:
- Clique em Iniciar, digite regedit na caixa Iniciar pesquisa e pressione Enter.
- Localize e, em seguida, clique na seguinte subchave do registro:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
- Aponte para novo e clique em Valor DWORD.
- Digite EnableLinkedConnectionse então pressione Enter.
- Com o botão direito EnableLinkedConnectionse, em seguida, clique em Modificar.
- Na caixa dados do valor , digite 1 e clique em OK.
- Saia do Editor do registro e reinicie o computador.
Douglas Urbano
- Marcado como Resposta Douglas Urbano terça-feira, 26 de fevereiro de 2013 18:17
-
-
Amigo, passei pelo mesmo problema, não mapeava a unidade, porem no mesmo script, tinha código para criar atalho do mapeamento e criava, e me chamou atenção me fazendo isolar qualquer outro tipo de problema para as linhas do arquivo .vbs. Então verifiquei em um exemplo que no final do comando para mapear a unidade, possui um "true", coloquei e funcionou. Pode ser que dê certo com vc, Tenta ai!!!
Abraços