use strict;
use warnings;

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ SCRIPT CONFIGURATION ------
my $IISSERVER = 'Mosiac';
my $logonName = 'jsmith';
#my $baseVdirPath = "d:\\userdirs\\Students\\$logonName\\WWW";
my $baseVdirPath = "d:\\userdirs\\Students\\";
# ------ END CONFIGURATION ---------

my @users = ($logonName);
createVirDir($IISSERVER, $baseVdirPath, \@users);

#######################################################################################################

sub createVirDir
{
    my ($IISSERVER, $baseVdirPath, $users) = @_;
    
    # $baseVdirPath = "d:\\userdirs\\Students\\";
    my $objVdir;
    for(my $index=0; $index<@$users; $index++)
    {
        my $userVdirPath = $baseVdirPath . $$users[$index] . "\\WWW";
    
    
        #  Does the vdir already exist??
        if(Win32::OLE->GetObject("IIS://" . $IISSERVER . '/W3svc/1/Root/' . $logonName . '/www'))
        # Win32::OLE->GetObject("IIS://" . "\\\\$IISSERVER" . '/W3svc/1/Root/' . $logonName . '/www'
        {
            print "$logonName www directory already exists.\n ";
            return;
        }
    
        eval
        {
            my $objIIS = Win32::OLE->GetObject('IIS://' . $IISSERVER . '/W3SVC/1'); # || Win32::OLE->GetObject('IIS://' . "\\\\$IISSERVER" . '/W3SVC/1');
            my $objWebSite =  $objIIS->GetObject("IISWebVirtualDir","Root");
            my $objVdir = $objWebSite->Create('IISWebVirtualDir', $logonName);
        
            $objVdir->{AccessRead} = 1;
            $objVdir->{Path} = $userVdirPath;
            $objVdir->AppCreate(1);
            $objVdir->{AppIsolated} = 2;
            $objVdir->{AppFriendlyName} = $logonName;
            $objVdir->SetInfo();
            $objVdir->Close();
        };
    
        if($@)
        {
            print 'Unable to create virtual directory: ' . $objVdir->Name, "\n";
            Error("IIsWebVirtualDir");
        
            return 0;
        }
        else
        {
            return 1;
        }
    }
}

sub Error    
{
  my ($Object) = @_;
  print "unable to create a '$Object' object.\n";
  print "Error: " . Win32::OLE->LastError() . "\n";
}