Crear Aplicación en IIS6 con Powershell

Crear Aplicación en IIS6 con Powershell.

Function CrearIISApp {
    Param ([Parameter(Mandatory=$False,Position=0)][string]$AppNom,
    [Parameter(Mandatory=$False,Position=0)][string]$AppPath,
    [Parameter(Mandatory=$False,Position=0)][string]$AppDefDoc,
    [Parameter(Mandatory=$False,Position=0)][string]$AppPoolNom,
    [Parameter(Mandatory=$False,Position=0)][string]$AppSite)
    $path = [ADSI]"IIS://localhost/$AppSite/ROOT"
    $app = $path.Create("IIsWebVirtualDir", $AppNom)
    $app.AppCreate2(1)
    $app.Put("AppFriendlyName", $AppNom)
    $app.Put("Path", $AppPath)
    $app.Put("DefaultDoc", "$AppDefDoc")
    $app.Put("AppPoolId", "$AppPoolNom")
    $app.SetInfo()
    }