'set drive letter
drive = "Z:"
'set share
share = "\\Server\PublicFiles"
'set delay
delay = 3000 ' in milliseconds
'start network object
Set WshNetwork = WScript.CreateObject("WScript.Network")
'start file system object
Set filesys = CreateObject("Scripting.FileSystemObject")
'do not show errors
on error resume next
'repeat until the drive in found
do until filesys.driveexists(drive)
'create drive mapping
WshNetwork.MapNetworkDrive drive, share
'short delay
wscript.sleep(delay)
'send back to do statement
loop
'turn errors back on
on error goto 0
'cleanup
Set WshNetwork = nothing
Set filesys = nothing