SwitchToServer

Discuss and share scripts and script files...
Post Reply
admin
Site Admin
Posts: 60357
Joined: 22 May 2004 16:48
Location: Win8.1 @100%, Win10 @100%
Contact:

SwitchToServer

Post by admin »

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)

TheQwerty
Posts: 4373
Joined: 03 Aug 2007 22:30

Re: SwitchToServer

Post by TheQwerty »

Email 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 ) :
Image

... 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 :
Image

I click on bt1sqknt, and I'm directly moved to \\BT1SQKNT\f$\B2BNG\LOG
Image

But maybe it's still not here but on bt1sqknx ? No problem either... Alt-Space and
Image

And if I want to go back to a local path name, Alt-space again and choose "Local machine"
Image

---
Nichts in die Welt ist ohne Einschränkung gut, als nur der gutte Wille
SwitchToServer.xys

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.

admin
Site Admin
Posts: 60357
Joined: 22 May 2004 16:48
Location: Win8.1 @100%, Win10 @100%
Contact:

Re: SwitchToServer

Post by admin »

Hey, thanks for doing the nasty work!
TheQwerty wrote:Don, you should add xys to the list of allowable upload extensions.
Yo, done! :)

TheQwerty
Posts: 4373
Joined: 03 Aug 2007 22:30

Re: SwitchToServer

Post by TheQwerty »

admin wrote:Hey, thanks for doing the nasty work!
TheQwerty wrote:Don, you should add xys to the list of allowable upload extensions.
Yo, done! :)
Hmm. It's still telling me xys is not allowed.

If you want, feel free to host the images yourself and remove the reliance on ImageShack.us. ;)

admin
Site Admin
Posts: 60357
Joined: 22 May 2004 16:48
Location: Win8.1 @100%, Win10 @100%
Contact:

Re: SwitchToServer

Post by admin »

XYS Should work now... yep, it does. :)
Attachments
SwitchToServer.xys
(5.46 KiB) Downloaded 138 times

Post Reply