$System = CreateObject("Kixtart.System")
$Form1 = $System.Form()

$TextBox = $Form1.Controls.Add("TextBox")
$TextBox.Width = $Form1.Width
$TextBox.Height = $Form1.Height
$TextBox.Center()
$TextBox.Text = "Attempting to map drive X"

$Form1.Show()

MapDrives()

While $Form1.Visible
   $Nul = Execute($System.DoEvents)
Loop

Exit 0

Function MapDrives()
   Use X: "\\server\share"
   If @Error
      $TextBox.Text = "Failed to map drive X"
   Else
      $TextBox.Text = "Successfully mapped drive X"
   Endif
EndFunction

$Form_DistLogin.Center
$Form_DistLogin.TopMost = "True"
$Form_DistLogin.Show

While $Form_DistLogin.Visible
   $ = Execute($Form_DistLogin.DoEvents)
Loop

Exit 0