http:\/\/community.spiceworks.com\/scripts\/show\/298-change-shortcut-lnk-target-paths-in-bulk?page=2<\/a><\/p>\nHier das Skript (als .vbs speichern und mit ‚wscript‘ ausf\u00fchren) falls der Link oben mal nicht mehr funktionieren sollte (Achtung: Bitte vorher LESEN was man starten m\u00f6chte und die Variable „silent“ auf jeden Fall von 1 auf 0 \u00e4ndern:<\/p>\n
'~~Author~~. Rob Dunn<\/span>\r\n'<\/span>\r\n'~~Blatently borrowed a little bit of code from~~. Jim de Graff<\/span>\r\n'<\/span>\r\n'~~Script_Type~~. vbscript<\/span>\r\n'<\/span>\r\n'~~Sub_Type~~. SystemAdministration<\/span>\r\n'<\/span>\r\n'~~Keywords~~. change shortcuts, string, migration, <\/span>\r\n' mapped drive, new server, LNK, target path<\/span>\r\n'<\/span>\r\n'~~Comment~~.<\/span>\r\n'This script searches the given folder (and sub-folders) for shortcuts <\/span>\r\n' that contains a particular string (i.e. \"c:\\temp\\shortcut_target.exe\" <\/span>\r\n' first it will prompt you to type the string you wish to replace, <\/span>\r\n' after which, it prompts for the new string. Finally, it will ask <\/span>\r\n' you for the root folder which you would like to begin the search <\/span>\r\n' (and replace). If you run in verbose mode, you will be prompted<\/span>\r\n' to say 'yes' for each shortcut you'd like to change. After it's <\/span>\r\n' finished, it will present you with an HTM of the changes that <\/span>\r\n' were made.<\/span>\r\n'<\/span>\r\n'This script only works with single instances of a string - if there are<\/span>\r\n' more than one instance, the script will change the first instance.<\/span>\r\n'<\/span>\r\n'A few lines below are variables that you can set to modify the behavior <\/span>\r\n' of the script. In this form, Silent = 0 (off), which will prompt you <\/span>\r\n' with each shortcut it finds that meet the criteria specified in the <\/span>\r\n' initial input boxes. As it finds matching shortcuts, it will prompt<\/span>\r\n' you to type 'yes' to change the shortcuts.<\/span>\r\n' <\/span>\r\n'I just changed a server name at a location, and all the users had a <\/span>\r\n' TON of shortcuts pointing to the old server name, so I put this <\/span>\r\n' together to save me time, and it worked great!<\/span>\r\n'<\/span>\r\n'At the very end, it will open up an HTM file with the results of the<\/span>\r\n' shortcuts that it finds (and highlight which ones are updated)<\/span>\r\n'<\/span>\r\n'Per Jim de Graff: \"also demonstrates how to traverse a directory tree\"<\/span>\r\n' using recursion.\"'<\/span>\r\n\r\n'~~Script~~.<\/span>\r\nDim<\/span> Silent<\/span>,<\/span> CurTime<\/span>,<\/span> sIsDrive<\/span>\r\nDim<\/span> newlink<\/span>,<\/span> oldlink<\/span>,<\/span> oldfull<\/span>,<\/span> fullname<\/span>,<\/span> oldfile<\/span>,<\/span> bgcolor<\/span>\r\nDim<\/span> CheckFolder<\/span>,<\/span> RootFolder<\/span>\r\n\r\nDim<\/span> w<\/span>,<\/span> ws<\/span>\r\n\r\nconst<\/span> ForReading<\/span> =<\/span> 1<\/span>\r\nconst<\/span> ForWriting<\/span> =<\/span> 2<\/span>\r\nconst<\/span> ForAppending<\/span> =<\/span> 8<\/span>\r\n\r\n'On Error Resume Next<\/span>\r\n\r\n'Find current time that the script runs<\/span>\r\nset<\/span> wso<\/span> =<\/span> CreateObject<\/span>(<\/span>\"Wscript.Shell\"<\/span>)<\/span>\r\nset<\/span> fso<\/span> =<\/span> CreateObject<\/span>(<\/span>\"Scripting.FileSystemObject\"<\/span>)<\/span>\r\n\r\n'pull the system's process variables (we'll be using TEMP<\/span>\r\n' for the output file and WINDIR to figure out the default <\/span>\r\n' location of user's desktop folder - whether 9x or NT\/2k\/XP)<\/span>\r\nSet<\/span> WshSysEnv<\/span> =<\/span> wso<\/span>.<\/span>Environment<\/span>(<\/span>\"PROCESS\"<\/span>)<\/span>\r\n\r\n'pull the system's profile environment variable<\/span>\r\nuserprofile<\/span> =<\/span> wso<\/span>.<\/span>ExpandEnvironmentStrings<\/span>(<\/span>\"%userprofile%\"<\/span>)<\/span>\r\n\r\n'set your variables here<\/span>\r\n'silent = 0\/1\/2<\/span>\r\n'\t0 - verbose<\/span>\r\n'\t1 - turns off verification prompts<\/span>\r\n'\t2 - turns off verification and initial config prompts<\/span>\r\n'ChangePathFrom = string you wish to replace<\/span>\r\n'ChangePathTo = string you wish to change ChangePathFrom to<\/span>\r\n' above server vars are needed only for when silent = 2<\/span>\r\n'ouputfile = location of output filename, you can use a string in<\/span>\r\n' place of all the code after the equal sign (i.e. <\/span>\r\n' outputfile = \"x:\\temp,\" etc.)<\/span>\r\n'curtime = finds time of execution of script<\/span>\r\n'RootFolder = The folder that you wish to search (silent mode only)<\/span>\r\n'--------------------------------------------------------------------<\/span>\r\n' set your variables below...<\/span>\r\n'--------------------------------------------------------------------<\/span>\r\nSilent<\/span> =<\/span> 1<\/span>\r\nChangePathFrom<\/span> =<\/span> \"\\\\test1\"<\/span>\t\t'string to search for<\/span>\r\nChangePathTo<\/span> =<\/span> \"\\\\test2\"<\/span>\t\t'string to replace with<\/span>\r\nOutputFile<\/span> =<\/span> WshSysEnv<\/span>(<\/span>\"TEMP\"<\/span>)<\/span> &<\/span> \"\\\"<\/span> &<\/span> \"migrate_shortcuts_log.htm\"<\/span>\r\nRootFolder<\/span> =<\/span> \"c:\\shortcut\"<\/span>\r\n'--------------------------------------------------------------------<\/span>\r\n\r\nCurTime<\/span> =<\/span> Now<\/span>\r\nOSType<\/span> =<\/span> WshSysEnv<\/span>(<\/span>\"OS\"<\/span>)<\/span>\r\nWinDirectory<\/span> =<\/span> WshSysEnv<\/span>(<\/span>\"WINDIR\"<\/span>)<\/span>\r\n\r\n \r\nIf<\/span> Silent<\/span> ><\/span> 0<\/span> Then<\/span>\r\n\tCheckFolder<\/span> =<\/span> RootFolder<\/span>\r\nElse<\/span>\r\n\r\nEnd<\/span> If<\/span>\r\n\r\nIf<\/span> CheckFolder<\/span> =<\/span> \"\"<\/span> Then<\/span>\r\n\t\r\n If<\/span> OSType<\/span> <><\/span> \"Windows_NT\"<\/span> Then<\/span>\r\n\t'Windows 9x\/Me desktop folder<\/span>\r\n\tCheckFolder<\/span> =<\/span> Windirectory<\/span> &<\/span> \"\\desktop\"<\/span> \r\n Else<\/span>\r\n\t'Windows NT\/2k\/XP desktop folder<\/span>\r\n\tCheckFolder<\/span> =<\/span> userprofile<\/span> &<\/span> \"\\desktop\"<\/span>\r\n End<\/span> If<\/span>\r\nEnd<\/span> If<\/span>\r\n\r\n'check to see if ouputfile exists or not, deletes it if it does<\/span>\r\nIf<\/span> CheckFileExists<\/span>(<\/span>OutputFile<\/span>)<\/span> Then<\/span>\r\n\tSet<\/span> oldfile<\/span> =<\/span> fso<\/span>.<\/span>GetFile<\/span>(<\/span>OutputFile<\/span>)<\/span>\r\n\toldfile<\/span>.<\/span>Delete<\/span>\r\nElse<\/span>\r\n\t'wscript.echo oldfile & \" does not yet exist.\"<\/span>\r\nEnd<\/span> If<\/span>\r\n\r\nIf<\/span> Silent<\/span> <=<\/span> 1<\/span> Then<\/span>\r\n\tCall<\/span> CServer<\/span>\r\nEnd<\/span> If<\/span>\r\n\r\n'Bring up inputbox for old server string<\/span>\r\nSub<\/span> CServer<\/span>\r\nChangePathFrom<\/span> =<\/span> InputBox<\/span> (<\/span>\"Type the string of text that you wish to\"<\/span>_<\/span>\r\n