option explicit
on error resume next

'initialize variables
dim vs, objArg, objShell, objFSO, objNetwork


'create instance of object
set objArg = wscript.arguments
set objShell = wscript.createobject("wscript.shell")
set objFSO = wscript.createobject("scripting.filesystemobject")
set objNetwork = wscript.createobject("wscript.network")

objNetwork.mapnetworkdrive "R:", "\\roanoke.lib.ad.ncsu.edu\geodata", , "LIBRARY\gisdata" , "gisdata"