// ====================================================
// Opens first Workgroup in Microsoft Windows Network
// in active panel of Total Commander
//
// To use this script you have to install
// Script Helper ActiveX for Total Commander
// ====================================================

var TCS = WScript.CreateObject("TCScript.Helper");
TCS.Pause=100;

TCS.locktc(1);
TCS.SendCommand(331);

TCS.SendKeystroke ("\\");
TCS.SendKeystroke ("{END}");
TCS.SendKeystroke ("{UP 3}");
TCS.SendKeystroke ("{ENTER}");
TCS.SendKeystroke ("{DOWN}");
TCS.SendKeystroke ("{ENTER}");
TCS.SendKeystroke ("{DOWN}");
TCS.SendKeystroke ("{ENTER}");
TCS.locktc(0);

// ====================================================
// Opens first Workgroup in Microsoft Windows Network
// in left! panel of Total Commander
// ====================================================

var WshShell = WScript.CreateObject("WScript.Shell");
WScript.Sleep(100);

TCKey("%{F1}",0);
TCKey("{\\}",0);
TCKey("{END}",0);
TCKey("{UP 3}",0);
TCKey("{ENTER}",100);
TCKey("{DOWN}",0);
TCKey("{ENTER}",300);
TCKey("{DOWN}",0);
TCKey("{ENTER}",0);

function TCKey(key,t)
{
  if (WshShell.AppActivate("Total Commander ")) {
    WshShell.SendKeys(key);
    WScript.Sleep(t);
  }
  else WScript.Quit();
}

WScript.Sleep(100);