file_dialog.pl

sub ms32_vbs_filedialog {

  # let's just see if it works

  my $VBScript =<<'EOF';
Set shell = CreateObject("Shell.Application")
Set mediasite = shell.BrowseForFolder(0, "Pick up your Mediasite presentation folder", 0, "%USERPROFILE%")
WScript.Echo """" & mediasite.self.Path & """"
EOF

  # cannot do while 'unix2dos' in use!
  # $VBScript =~ s|\n|\r\n|;

  open my $cscript, ">:utf8", undef or die;
  print $cscript $VBScript;
  close $cscript;

  chomp(my $path = qx(cscript.exe $cscript //E:VBScript //Nologo));
  die unless -d $path;

  return $path;
}

file_dialog.vbs

'set up a file dialog
Set shell = CreateObject("Shell.Application")
Set mediasite = shell.BrowseForFolder(0, "Pick up your Mediasite presentation folder", 0, "%USERPROFILE%")
'return full path for the selected folder
WScript.Echo """" & mediasite.self.Path & """"