Olá Leonardo,
Com o script abaixo você consegue o que deseja, mapeando o compartilhamento para a letra "H" e o compartilhamento2 para a letra "F" de forma persistente:
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
objNetwork.MapNetworkDrive "H:", "\\SERVIDOR\COMPARTILHAMENTO", true
objNetwork.MapNetworkDrive "F:", "\\SERVIDOR\COMPARTILHAMENTO2", true
Se lhe foi útil, Vote
Elmo Baraúna, SSA-Ba - FSCTP / MCP / MCDST / MCSA / MCT