::
:: User Share
::
:: This script creates a shared user directory and assigns the correct 
:: Permissions
::
:: The command syntax is:    usershare {UID} {UserName}
::
:: NOTE:  Server ID is hardcoded in three lines
::        Global Administrator's Group is hardcoded in one line
::        Drive letter to the Users folder is hardcoded in one line

@echo off
if not "%2" == "" goto continue
echo.
echo.
echo        Command syntax is:    usershare  {3-4 UID}  {6-1-1 UserName}
echo.
echo.
pause
goto end

:continue
@echo on

:: Open a Mapped Drive to the USERS root folder
net use r: \\twhtshr04\users

:: Create the User's Folder
mkdir r:\%2.%1

:: Set Share Permissions on the User’s Folder
rmtshare \\twhtshr04\%1$=D:\users\%2.%1 /g %1:f

:: Set NTFS Permissions on the User’s Folder
xcacls.vbs r:\%2.%1 /g “HCA\%1:f” /I copy /Q

:: Close the Mapped Drive to the USERS root folder
net use r: /delete

pause

:end

; 
; Uses GLOBAL Variables:  $PCDomain

DIM $TWHT, $CLRH, $GenShare, $UserShellFolders, $x, $IsFacServ, $Serv, $TWHT2

$TWHT             = "\\twhtshr04"
$TWHT2            = "\\twhtshr02"
$CLRH             = "\\CLRHSVR03"
$GenShare         = SUBSTR(@userid,1,9)
$UserShellFolders = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"



     
; ************************************************
; Home-drive mapping
   IF EXIST ("$TWHT\"+@userid+"$")
      MapDrive("H:","$TWHT\"+@userid+"$")

      IF NOT ReadValue($UserShellFolders, "Personal") = "H:\"
         $x = WriteValue($UserShellFolders, "Personal", "H:\", "REG_SZ" )
      ENDIF

      IF NOT EXIST ("H:\Favorites")
         MD "H:\Favorites"
      ENDIF
      IF NOT EXIST ("H:\Outlook")
         MD "H:\Outlook"
      ENDIF
;      IF NOT EXIST ("C:\Documents and Settings\@userid\Favorites.txt")
;         COPY "C:\Documents and Settings\@userid\Favorites\" "H:\Favorites\" /s
;      ENDIF
      IF NOT ReadValue($UserShellFolders, "Favorites") = "H:\Favorites"
         $x = WriteValue($UserShellFolders, "Favorites", "H:\Favorites", "REG_SZ" )
      ENDIF
   ENDIF



? " "

RETURN



; *************************
; *       MAPDRIVE        *
; *************************
Function MapDrive($Drive, $Path)
   Use $Drive /del
   Use $Drive $Path

   if @ERROR = 0
      ? "   Drive " + $Drive + " mapped to " + $Path
   else
      Color r+/n
      ? "   Error Mapping Drive " + $Drive + " to " + $Path + " !!"
      ? "Error: " + @Error + " - " + @SError
      Color w/n
   endif
EndFunction
RETURN

; *************************
; *       ISFACSERV       *
; *************************
Function IsFacServ($Serv)
   Dim $x
   $x = GetObject("LDAP://CN=" + $Serv + ", OU=s*****, OU=*****, DC=*****, DC=*****, DC=*****")
   If @Error = 0
      $IsFacServ = 1
   Else
      $IsFacServ = 0
   Endif
EndFunction
RETURN