Vou ver o fqdn, o script funciona no win7 e xp
set net = createobject("wscript.network")
Set FSODrive= CreateObject("Scripting.FileSystemObject")
If not FSODrive.DriveExists("y:") Then
Set NW = CreateObject("WScript.Network")
NW.MapNetworkDrive "y:", "\\0.0.0.0\x\x", True
End If
wscript.quit
Eu coloco o arquivo vbs no c: e registro ele no regedit