'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ' ' SCRIPT NAME ' ' What the script does: ' This script will ' ' '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ' ' CHANGES: ' ' Date: User: Change made: ' ' '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ' ' BUGS: ' ' No known Bugs ' '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ' ' TO DO: ' ' ' ' '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////// on error resume next 'Create objects dim objWshShell 'Shell Object dim objArgs 'Arguments Object dim objNet 'Network Object dim objFSO 'File System Object 'Set Objects Set objWshShell = WScript.CreateObject("WScript.Shell") Set objArgs = WScript.Arguments Set objNet = Wscript.CreateObject("WScript.Network") Set objFSO = CreateObject("Scripting.FileSystemObject") 'Define Constants Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Const DNUser = "user" Const DNGroup = "group" Const DNComputer = "computer" 'Create Variables 'Set Variables