Function Create-WindowsForm(){
<#
.DATE
11/3/16

.NOTE
Send username, new password, old
Enables user account, creates home drive

.EXAMPLE
samAccountName,password
#>
    [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
    [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

    $Form = New-Object System.Windows.Forms.Form
    $Form.Text = "Sample Form"
    $Form.AutoSizeMode = "GrowAndShrink" # or GrowOnly
    $Form.BackColor = 'white'
    $Form.AutoSize = $False
    $Form.MinimizeBox = $False
    $Form.MaximizeBox = $False
    $Form.WindowState = "Normal"
    $Form.StartPosition = "CenterScreen"
    $Form.Height = 500
    $Form.Width = 470
    $Form.AutoScroll = $True
    $Form.AcceptButton = $Button

    $Form.KeyPreview = $True
    # Scope of variable needs to be global to be available outside function
    $Form.Add_KeyDown({if ($_.KeyCode -eq "Enter"){$global:user=$objTextBox1.Text;$global:password=$objTextBox2.Text;$Form.Close()}})
    $Form.Add_KeyDown({if ($_.KeyCode -eq "Escape"){$Form.Close()}})

    # Adds a button labelled OK
    $OKButton = New-Object System.Windows.Forms.Button
    $OKButton.Location = New-Object System.Drawing.Size(75,120)
    $OKButton.Size = New-Object System.Drawing.Size(75,23)
    $OKButton.Text = "OK"
    # Scope of variable needs to be global to be available outside function
    $OKButton.Add_Click({$global:user=$objTextBox1.Text;$global:password=$objTextBox2.Text;$Form.Close()})
    $Form.Controls.Add($OKButton)

    # Adds a button labelled Cancel
    # Each time you add a new control you’ll typically create a new instance of a .NET Framework class
    $CancelButton = New-Object System.Windows.Forms.Button
    $CancelButton.Location = New-Object System.Drawing.Size(150,120)
    $CancelButton.Size = New-Object System.Drawing.Size(75,23)
    $CancelButton.Text = "Cancel"
    $CancelButton.Add_Click({$Form.Close()})
    $Form.Controls.Add($CancelButton)

    $objLabel1 = New-Object System.Windows.Forms.Label
    $objLabel1.Location = New-Object System.Drawing.Size(10,20)
    $objLabel1.Size = New-Object System.Drawing.Size(280,20)
    $objLabel1.Text = "Please enter the username:"
    $Form.Controls.Add($objLabel1)


    $objLabel2 = New-Object System.Windows.Forms.Label
    $objLabel2.Location = New-Object System.Drawing.Size(10,70)
    $objLabel2.Size = New-Object System.Drawing.Size(280,20)
    $objLabel2.Text = "Please enter the password:"
    $Form.Controls.Add($objLabel2)

    $objTextBox1 = New-Object System.Windows.Forms.TextBox
    $objTextBox1.Location = New-Object System.Drawing.Size(10,40)
    $objTextBox1.Size = New-Object System.Drawing.Size(200,20)
    $Form.Controls.Add($objTextBox1)


    $objTextBox2 = New-Object System.Windows.Forms.TextBox
    $objTextBox2.Location = New-Object System.Drawing.Size(10,90)
    $objTextBox2.Size = New-Object System.Drawing.Size(200,20)
    $Form.Controls.Add($objTextBox2)

    # Bring window to the foreground
    $Form.Topmost = $True
    $Form.Add_Shown({$Form.Activate()})

    # Now show the form on-screen
    [void] $Form.ShowDialog()

    $user
    $password

}

Create-WindowsForm;

#region Variables
    $remoteServer = "filesrv"
    $domain = "contoso.com"
    $homeShare = "Home"
    $ShareDrive = "E"
    $Right="FullControl"
    $absolutePath = "$($shareDrive):\homedrives"
    $hiddenShare = "homeDrives$($shareDrive)$"
#endregion


import-module activeDirectory

#region Create User
    if ($user){
        Write-Verbose "Working on $user"

         Try{
            Enable-ADAccount -Identity $user
            Write-Verbose "Enabled $user"
            }
         Catch{Write-Verbose $error[0].ToString() + $error[0].InvocationInfo.PositionMessage}


         Try{
            Set-ADAccountPassword -Identity $user -Reset -NewPassword (ConvertTo-SecureString -AsPlainText $password -Force)
            Write-Verbose "Reset password for $user"
            }
         Catch{Write-Verbose $error[0].ToString() + $error[0].InvocationInfo.PositionMessage}


         Try{
            Invoke-Command -computername $remoteServer {New-Item -path $args[0] -type directory} -Args "$($absolutePath)\$($user)"
            Write-Verbose "Created directory $($absolutePath)\$($user)"
            }
         Catch{Write-Verbose $error[0].ToString() + $error[0].InvocationInfo.PositionMessage}


         Try{
            $rule=new-object System.Security.AccessControl.FileSystemAccessRule($user, $Right, "ContainerInherit, ObjectInherit", "None", "Allow")
            $acl=get-acl "\\$($remoteServer)\$($hiddenShare)\$($user)"
            $acl.SetAccessRule($rule)
            set-acl "\\$($remoteServer)\$($hiddenShare)\$($user)" $acl
            Write-Verbose "Set ACLs on Home Directory"
            }
         Catch{Write-Verbose $error[0].ToString() + $error[0].InvocationInfo.PositionMessage}


         Try{
            Write-Verbose "Created DFS Link for Home Directory"
            Invoke-Command -computername $remoteServer {New-DfsnFolder -path $args[0] -targetpath $args[1]} -Args "\\$($domain)\$($homeShare)\$($user)", "\\$($remoteServer)\$($hiddenShare)\$($user)"
            }
         Catch{Write-Verbose $error[0].ToString() + $error[0].InvocationInfo.PositionMessage}


         Try{
            Set-ADUser -Identity $user -HomeDrive "H:" -HomeDirectory "\\$($domain)\$($homeShare)\$($user)"
            Write-Verbose "Set Home Directory mapping"
            }
         Catch{Write-Verbose $error[0].ToString() + $error[0].InvocationInfo.PositionMessage}


         Try{
            Invoke-Command -computername $remoteServer {New-FsrmQuota -Path $args[0] -Template "2GB HomeDir Limit"} -Args "$($absolutePath)\$($user)"
            Write-Verbose "Set 2GB Quota for Home Directory"
            }
         Catch{Write-Verbose $error[0].ToString() + $error[0].InvocationInfo.PositionMessage}

         }

#endregion