#!/usr/bin/perl -w

my $line = 'if /I "%username%"=="username" net use F: \\\\foo\bar /user:host\user pass';

if ( $line =~ /"(\w{1,})".*(.):.(\\{2}[^\s]*).\/([Uu]|[Uu]ser):+([^\s]*)+(.*)$/ )
{
  my $user = $1;
  my $letter = $2;
  my $path = $3;
  my $auth = $5;
  my $pass = $6;
  my $share = lc( ( $path =~ /.*\\(.*)/)[0] );
  $path =~ s/\//\/\//;
  print "insert into DriveMapping values ('$user', '$letter', '$path', '$auth', '$pass')\n";
}