move shortcuts for rds

bin/pinonedrivetohome.bat

@@ -21,11 +21,12 @@ $logfile
 &{
     $onedrive = '\\tsclient\C\Users\'+$env:USERNAME+'\OneDrive - Wabtec Corporation'
     $sharepoint = '\\tsclient\C\Users\'+$env:USERNAME+'\Wabtec Corporation'
+    $shortcuts = '\\ang-fs.wabtec.com\share\95 RDS Shortcuts'
     $onedrive
     $sharepoint
 
-    Get-ChildItem "\\ang-fs.wabtec.com\share\98 IT\RDS Shortcuts"
+    Get-ChildItem $shortcuts
     $o.Namespace($onedrive).Self.InvokeVerb("pintohome")
     $o.Namespace($sharepoint).Self.InvokeVerb("pintohome")
-    $o.Namespace("\\ang-fs.wabtec.com\share\98 IT\RDS Shortcuts").Self.InvokeVerb("pintohome")
+    $o.Namespace($shortcuts).Self.InvokeVerb("pintohome")
 } *> ($logfile)