;*******************************************************************************

	;** Main Form

	;*******************************************************************************

	$frmMain = $System.Form($Root) 

	$frmMain.ShowInTaskBar = "False"

	$frmMain.BorderStyle = 1

	$frmMain.SysMenu = 0

	$frmMain.ControlBox = 0

	$frmMain.Size = 320,310

	$frmMain.Text = "Welcome to the @DOMAIN Domain"

	$frmMain.Center

	$frmMain.TopMost = 1



	;*******************************************************************************

	;** Logo Picture Frame

	;*******************************************************************************



	$SPLogoBanner = $frmMain.PictureBox

	$SPLogoBanner.BackColor = $frmMain.RGB(255,255,255)

	$SPLogoBanner.Left = 5

	$SPLogoBanner.Top = 5

	$SPLogoBanner.Height = 60

	$SPLogoBanner.Width = 300

	

	$SPLogo = $SPLogoBanner.Image

	$SPLogo.Picture = $LocalDC + "\netlogon\tucson\logo.bmp"

	$SPLogo.Center

	$SPLogo.Border = 0

	$SPLogo.Height = 52

	$SPLogo.Width = 216

	



	;*******************************************************************************

	;** User Information GroupBox

	;*******************************************************************************

	$fraUser = $frmMain.GroupBox

	$fraUser.Size = 300,130

	$fraUser.Center

	$fraUser.Top = 70

	$FraUser.Text = "User Information:"

	

	$FullName = @FULLNAME

	If InStr($FullName,",")    ;If true, then comma found 

		$NAME_ARRAY = Split($FullName,", ") 

		$GetFullName = $NAME_ARRAY[1] + " " + $NAME_ARRAY[0] 

	Else 

		$GetFullName = $FullName 

	EndIf

	

	$lblFName = $fraUser.Label("Full Name:",5,22,75,20)

	$lblFName.Alignment = 1

	$txtFName = $fraUser.TextBox($GetFullName,85,20,205,20)

	$txtFName.ReadOnly = 1

	

	$lblUserID = $fraUser.Label("Username:",5,42,75,20)

	$lblUserID.Alignment = 1

	$txtUserID = $fraUser.TextBox(@USERID,85,40,205,20)

	$txtUserID.ReadOnly = 1

	

	$lblLServer = $fraUser.Label("Logon Server:",5,62,75,20)

	$lblLServer.Alignment = 1

	$txtLServer = $fraUser.TextBox(@LSERVER,85,60,205,20)

	$txtLServer.ReadOnly = 1

	

	$lblLDom = $fraUser.Label("Logon Domain:",5,82,75,20)

	$lblLDom.Alignment = 1

	$txtLDom = $fraUser.TextBox(@DOMAIN,85,80,205,20)

	$txtLDom.ReadOnly = 1

	

	$ComputerName = @HOSTNAME

	If InStr($ComputerName,".site.com")    ;If true, then .site.com found 

		$Computer_ARRAY = Split($ComputerName,".site.com") 

		$GetFullCompName = $Computer_ARRAY[0] 

	Else 

		$GetFullCompName = $ComputerName 

	EndIf



	$lblComp = $fraUser.Label("Computer:",5,102,75,20)

	$lblComp.Alignment = 1

	$txtComp = $fraUser.TextBox($GetFullCompName,85,100,205,20)

	$txtComp.ReadOnly = 1

	

;	$lblIP = $fraUser.Label("IP Address:",5,122,75,20)

;	$lblIP.Alignment = 1

;	$txtIP = $fraUser.TextBox($CurrentIP,85,120,205,20)

;	$txtIP.ReadOnly = 1

;	

;	$lblMAC = $fraUser.Label("MAC Address:",5,142,75,20)

;	$lblMAC.Alignment = 1

;	$txtMAC = $fraUser.TextBox(@ADDRESS,85,140,205,20)

;	$txtMAC.ReadOnly = 1

	

	;*******************************************************************************

	;** Logon Process GroupBox and ProgressBar

	;*******************************************************************************

	

	$fraStatus = $frmMain.GroupBox

	$fraStatus.Size = 300,70

	$fraStatus.Center

	$fraStatus.Top = $fraUser.Bottom + 5

	$fraStatus.Text = "Logon Process:"

	

	$lblStatus = $fraStatus.Label("Processing logon script...",10,20,260,20)

	

	$prgStatus = $fraStatus.ProgressBar

	$prgStatus.Size = 280,20

	$prgStatus.Center

	$prgStatus.Top = $lblStatus.Bottom