Script de Vbs para mapeamento

Script para mapeamento Unidade de Rede

set net = createobject("wscript.network")
Set FSODrive= CreateObject("Scripting.FileSystemObject")
If not FSODrive.DriveExists("H:") Then
Set NW = CreateObject("WScript.Network")
NW.MapNetworkDrive "H:", "\\fileserver\novadapasta", False
End If
wscript.quit

Script para mapeamento de impressora com configuração deixar padrão

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\computer\print"
WshNetwork.SetDefaultPrinter "\\computer\print"