Problems with "DIRCREATE"

[secman]

I have a script which has been working sucessfully creating user accounts including creating the home drive on the server using "DirCREATE". We have uprgaded our servers to Virtualised Windows 2008 R2 and now the script fails to create the home drive whilst everything else work (using the wonderful AD tools from Walter).

Can anyone offer any assistance?

The function to create the folders and sort out the permissions is as follows:-

Func Folders($sUser, $sServer)

;Create Home folder

If FileExists("rmtshare.exe") then

DirCreate ("\\" & $sServer & "\HOME\" & $sUser)

If FileExists("\\" & $sServer & "\HOME\" & $sUser) Then

Global $SHUser = $sUser & "$"

Local $ShareCMD ="rmtshare.exe \\" & $sServer & "\" & $SHUser & "=e:\home\" & $sUser & " /UNLIMITED /GRANT everyone:f"

Run(@ComSpec & " /c " & $ShareCMD, "", @SW_HIDE)

MemoWrite ("User " & $sUser & " - Home Folder Created")

Local $xx = '"n:DOMAIN\' & $sUser & ';p:full"'

Local $PermCMD = "SetACL.exe -on \\" & $sServer & "\home\" & $sUser & " -ot file -actn ace -ace " & $xx

Run(@ComSpec & " /c " & $PermCMD, "", @SW_HIDE)

MemoWrite ("User " & $sUser & " - Home Folder Permissions Set")

Else

MsgBox(4096, "\\" & $sServer & "\HOME\" & $sUser , " Does NOT exist")

EndIf

Else

MsgBox(0, "ERROR", " RMTSHARE.EXE Not Found")

Endif

EndFunc

Thanks

[rudi]

What is the output of this one?

$sServer="Server123"
$sUser="Test99"

$DirPath="" & $sServer & "HOME" & $sUser


$MyCMD='cmd.exe /k md "' & $DirPath & '" && if %ERRORLEVEL%==0 (echo DIR created: "' & $DirPath & '") else (echo cannot create directory "' & $DirPath & '")'

ConsoleWrite($MyCMD & @LF)
RunWait($MyCMD,@TempDir,@SW_SHOW)

Regards, Rudi.