some scripts

Discuss and share scripts and script files...
Post Reply
yusef88
Posts: 1123
Joined: 28 Jan 2013 03:50
Location: Windows 8.1 32-bit

some scripts

Post by yusef88 »

a small and modest script I want to share
shell folders from registry

Code: Select all

  $s = runret("cmd /c REG QUERY HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions /v Name /s|find ""Name""", %winsysdir%, 65001);
  $s = RegExReplace("$s", "    Name    REG_SZ    ", "shell:");
  shellopen inputselect(, "$$s", <crlf>, 64+2048, ,300, 600);
Last edited by yusef88 on 10 Jun 2022 14:24, edited 2 times in total.

yusef88
Posts: 1123
Joined: 28 Jan 2013 03:50
Location: Windows 8.1 32-bit

Re: shell folders from registry

Post by yusef88 »

get wlan passwords

Code: Select all

 $all="";
 foreach($name, runret("cmd /c netsh wlan show profiles|find ""All User Profile""", %winsysdir%), <crlf>, "e") {
       $name = trim(RegExReplace("$name", "All User Profile\s*:", ""));
       $pass = runret("cmd /c netsh wlan show profiles name=""$name"" key=clear|find ""Key Content""", %winsysdir%);
       $pass = RegExReplace("$pass", "\s*Key Content\s*", "");
       $all .= $name.$pass }
       text $all

yusef88
Posts: 1123
Joined: 28 Jan 2013 03:50
Location: Windows 8.1 32-bit

Re: shell folders from registry

Post by yusef88 »

shorthanded version of Everything in xyplorer
es.exe supposed to be in system folder and everything.exe is running

Code: Select all

  $media = get("genericfiletype", "{:media}", "|");
  perm $sterm;
  $s = trim(input("Everything", "\word boundaries<crlf>hold Shift key search media files","$sterm"), , "l");
  $sterm = "$s";
  if (regexmatches($s, "^\\")) { $s = regexreplace($s, "^\\", "regex:\b"); }
  if (<get "shift"> == 1) { $s= "$s $media" }
  end !($s); end ($s == "regex:\b");
  $s = "!<shell:windows\WinSxS\|*.lnk|size:0> $s";
  $s = replacelist("$s", "^,&,<,>,|,-,", "^^,^&,^<,^>,^|,""-""", ",");
  $s = RegExReplace("$s", "\|+$", "");
  $s = runret("cmd /c chcp 65001&&es.exe -no-result-error $s", %winsysdir%, 65001);
  $s = RegExReplace("$s", "Active code page: 65001.?<crlf>", "");
  if regexmatches("$s", "Error \d+:") {msg $s;end true}
 if not (regexmatches(<get "tabs" <crlf>>, "paper:es$")) {tab("new", "paper:es");}
  goto "paper:es", 1;
  paperfolder(, , , "oi1");paperfolder(, , , "op0");
  paperfolder(, , , "oe1");
  paperfolder("es", $s, , "ns");
  paperfolder(, , , "oe0"); //Explicit Save OFF
  //goto inputselect(, $s, <crlf>, 1+4096), 1;

Post Reply