'========================================================================== ' VBScript: AUTHOR: ' NAME: ' DESCRIPTION: Copies an External Icon to C:\ if it does not already exist. '========================================================================== 'Declare Variables for later use Option Explicit Const OverwriteExisting = TRUE Dim IconName Dim CopyFrom Dim CopyTo Dim objIcon '++++++++++++++++++++++++ EDIT THESE VARIABLES +++++++++++++++++++++++++++++ 'Filename of Icon (include extension) IconName = "Name.ico" 'Full network path of folder icon is in. (include trailing slash) CopyFrom = "\\server\folder\" 'Full local directory to copy the icon to CopyTo = "C:\" '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Set objIcon = CreateObject("Scripting.FileSystemObject") If objIcon.FileExists(CopyTo & IconName) Then Wscript.Quit Else ObjIcon.CopyFile CopyFrom & IconName , CopyTo, OverwriteExisting End If