SCRIPT .VBS - Mapeando a rede via script .vbs

Criando um mapeamento via script .vbs. Você pode criar uma gpo e incluir o script no logon do computador ou usuário !

'Autor: ||m0rPh3vZ||
'Script:  Mapeamento de rede :
Criação:2012.03.11
'Modificado:  Luciano Souza
'Descricao:   Mapeamento de rede simples, em modo implicito,
mapeando unidade de rede
'Dados de entrada

sDevice = "S" 'Letra do Mapeamento
sServerName = "192.168.0.1"  'IP ou hostname
sShare = "sistema" 'Pasta do compartilhamento

'Chamada da Subrotina Mapeamento, enviando os parametros

Mapeamento sDevice, sServerName, sShare

'Subrotina Mapeamento

Sub Mapeamento( strsDevice, strsServerName, strsShare )

'Nao exibir qualquer erro 
On Error Resume Next

'Remover Mapeamento esta comentado

'Set objNet = WScript.CreateObject( "WScript.Network" )
'objNet.RemoveNetworkDrive strsDevice & ":"

Set objNet = WScript.CreateObject( "WScript.Network" )
objNet.MapNetworkDrive _
"" & strsDevice & ":", "\\" & strsServerName & "\" & strsShare & ""
End Sub

Resultado na imagem abaixo: