Windows File Explorer auto extract zips like Mac Finder

extract.wsh.js

function CheckFolderExistsAndCreate(folder) {
  if (fso.FolderExists(folder)) {
    WScript.Echo("destination folder already exists: " + folder);
    WScript.Quit(1);
  }

  fso.CreateFolder(folder);
}

function isBiggish(items, depth, why) {
  var folderCount = 0;
  var fileCount = 0;

  //WScript.Echo("foldercount: " + folderCount + ", depth: " + depth + ", count: " + items.Count);

  if (depth === 2) { why.why = "3 deep"; return true; }

  for(var i=0; i < items.Count; i++) {
    var thisitem = items.Item(i);

    //these don't count, would like to avoid them on the extract as well but that's even more "unecessary" enumeration
    if (thisitem.Name == "__MACOSX") continue;

    //WScript.Echo("depth: " + depth + ", name: " + thisitem.Name);

    if (thisitem.IsFolder) {
      folderCount++;
      if (folderCount > 3) { why.why = "3+ folders"; return true; }
      if ( isBiggish(thisitem.GetFolder.Items(), depth+1, why) ) { /*we already have a why from call stack*/ return true; }
    }

    if (!thisitem.IsFolder && ++fileCount > 5) { why.why = "5+ files"; return true; }

    if (fso.GetExtensionName(thisitem) == "zip") { why.why = "zips inside"; return true; };
  }
  return false;
}

var objArgs = WScript.Arguments;
if (objArgs.length === 0) {
  WScript.Echo("please pass zip file as first and only argument")
  WScript.Quit(1);
}

var fso = new ActiveXObject("Scripting.FileSystemObject");
var sh = new ActiveXObject("Shell.Application");

var zipFileFullPath = objArgs.Item(0);

var zipItems = sh.NameSpace(zipFileFullPath).Items();

var fileObj = fso.GetFile(zipFileFullPath);
var zipFileName = fso.GetBaseName(fileObj); //no path nor extension
var extractToPath = fso.GetParentFolderName(fileObj); //yep this is full path not just name!?

// if empty, bail out
if (zipItems.Count === 0) {
  WScript.Echo("zip file empty. nothing to do.");
  WScript.Quit(0);
}

// use single root folder if present
var firstItem = zipItems.Item(0);
if (zipItems.Count === 1 && firstItem.IsFolder) {
  zipItems = firstItem.GetFolder.Items();
  zipFileName = firstItem.Name;
}

var whyIsBig = {why: null};

// if many files, prompt for full extract versus just view
if (isBiggish(zipItems, 0, whyIsBig)) {
  // https://ss64.com/vb/popup.html
  var wsh = new ActiveXObject("WScript.Shell");
  var result = wsh.Popup(
    "Yes = Extract All & ** DELETE **\nNo = View",
    0 /* seconds to wait, 0 = no timeout */,
    whyIsBig.why + " - Extract or View",
    3 /* Yes / No / Cancel */ + 32 /* question mark icon */
  );

  switch(result) {

    case 2 /*cancel*/: WScript.Quit(1); break;

    case 7 /* no */:
      //we have to specially fire the "open" verb via ShellExecute since we've overridden the default that would fire via sh.Open()
      sh.ShellExecute(zipFileFullPath, "" /*args*/, "" /*working dir*/, "open" /*operation aka "verb"*/, 1 /*window style, 1=normal*/ );
      WScript.Quit(1); 
      break;
  }
}

extractToPath += "\\" + zipFileName;
CheckFolderExistsAndCreate(extractToPath);

// finally! we get to do the extract
sh.NameSpace(extractToPath).Copyhere(zipItems);

// automatically pop open file explorer in our new folder, nice!! :)
sh.Open(extractToPath);

// delete the zip file
fso.DeleteFile(zipFileFullPath);

extract_one_time_setup.cmd

@echo off
setlocal ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION

if "%bin%"=="" ( echo Please go define your BIN environment variable where extract.wsh.js sits ^(e.g. c:\bin^) & goto :END )
net session >nul 2>&1 & if not !errorlevel!==0 ( echo must launch as admin for reg keys to work & goto :END )

::create the entry
reg add "HKEY_CLASSES_ROOT\CompressedFolder\shell\Extract" /f /ve /d "Extract"
::and the actual command to execute
reg add "HKEY_CLASSES_ROOT\CompressedFolder\shell\Extract\command" /f /ve /t REG_EXPAND_SZ /d "wscript /e:javascript \"^%%bin^%%\extract.wsh.js\" \"^%%L\""

::set as the default command on double click
reg add "HKEY_CLASSES_ROOT\CompressedFolder\shell" /f /ve /t REG_SZ /d Extract

:END
set allargs=x%*
if not "%allargs:-notInteractive=%" equ "%allargs%" timeout /t 5