Forum for XYplorer Users and Developers
https://www.xyplorer.com/xyfc/
SwitchToServer.xysEmail wrote:Hello,
Attached is a little xyplorer script that you may find useful.
I work on a large network infrastructure where I have to work extensively with UNC PATH on a lot of servers. In our network infrastructure, we have load balancing everywhere, so if I am looking for something in the logs of server BT1SQKOQ (folder F:\B2BNG\Log ) :
... it may be here, but it may be also on the servers BT1SQKNX, BT1SQKNT or BT1SQKOR which are exactly similar - and they have the same folder hierarchy.
So I wrote this script to be able to go in one shortcut on a different server (without having to type his name nor anything)... but in exactly the same folder than I was.
I press Alt-Space :
I click on bt1sqknt, and I'm directly moved to \\BT1SQKNT\f$\B2BNG\LOG
But maybe it's still not here but on bt1sqknx ? No problem either... Alt-Space and
And if I want to go back to a local path name, Alt-space again and choose "Local machine"
---
Nichts in die Welt ist ohne Einschränkung gut, als nur der gutte Wille
Code: Select all
"Cancel"
"Local machine"
regexreplace $path, <curpath>, "^\\\\[A-Z0-9]*\\(.)[$]", "$1:" ; goto $path
-
"PMA BT1SQKLU" set $server, "BT1SQKLU" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"PMA BT1SQKNH" set $server, "BT1SQKNH" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"PMA BT1SQKNU" set $server, "BT1SQKNU" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"PMA BT1SQKMZ" set $server, "BT1SQKMZ" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
-
"GWB2B BT1SQKNX" set $server, "BT1SQKNX" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"GWB2B BT1SQKNT" set $server, "BT1SQKNT" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"GWB2B BT1SQKOQ" set $server, "BT1SQKOQ" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"GWB2B BT1SQKOR" set $server, "BT1SQKOR" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
-
"SMUR BT1SQKLT" set $server, "BT1SQKLT" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"SMUR BT1SQKMU" set $server, "BT1SQKMU" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"SMUR BT1SQKNJ" set $server, "BT1SQKNJ" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"SMUR BT1SQKRN" set $server, "BT1SQKRN" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
-
"RTISIS BT1SQKNL" set $server, "BT1SQKNL" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"RTISIS BT1SQKNW" set $server, "BT1SQKNW" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"RTISIS BT1SQKMX" set $server, "BT1SQKMX" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"RTISIS BT1SQKNI" set $server, "BT1SQKNI" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"RTISIS BT1SVM64" set $server, "BT1SVM64" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
-
"CSS BT1SVM60" set $server, "BT1SVM60" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"CSS BT1SVM61" set $server, "BT1SVM61" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
-
"GWEXT BT1SVM4O" set $server, "BT1SVM4O" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ;
"GWEXT BT1SVM4P" set $server, "BT1SVM4P" ;
regexreplace $path, <curpath>, "^([A-Z]):", "\\XXX\$1$" ; substr $currentserver, $path, 2; regexreplace $currentserver, $currentserver, "\\.*", "" ; replace $target, $path, $currentserver, $server ; goto $target ; Yo, done!TheQwerty wrote:Don, you should add xys to the list of allowable upload extensions.
Hmm. It's still telling me xys is not allowed.admin wrote:Hey, thanks for doing the nasty work!
Yo, done!TheQwerty wrote:Don, you should add xys to the list of allowable upload extensions.
