Here's a nice script I received by email:
http://www.xyplorer.com/download/Script ... Server.eml
(open file in Outlook Express; contains info, images, and the script)
SwitchToServer
Re: SwitchToServer
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 ;
We can only attach 3 files to a post, so give me a minute to upload them elsewhere.
Don, you should add xys to the list of allowable upload extensions.
Last edited by TheQwerty on 20 Nov 2008 13:52, edited 1 time in total.
-
- Site Admin
- Posts: 60624
- Joined: 22 May 2004 16:48
- Location: Win8.1 @100%, Win10 @100%
- Contact:
Re: SwitchToServer
Hey, thanks for doing the nasty work!
Yo, done!TheQwerty wrote:Don, you should add xys to the list of allowable upload extensions.
FAQ | XY News RSS | XY Twitter
Re: SwitchToServer
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.
If you want, feel free to host the images yourself and remove the reliance on ImageShack.us.
-
- Site Admin
- Posts: 60624
- Joined: 22 May 2004 16:48
- Location: Win8.1 @100%, Win10 @100%
- Contact:
Re: SwitchToServer
XYS Should work now... yep, it does.
- Attachments
-
- SwitchToServer.xys
- (5.46 KiB) Downloaded 139 times
FAQ | XY News RSS | XY Twitter