Note that I had to change this:
Where { $_.Attributes -match “d”}

to this:
Where { $_.Attributes -match “Directory”}

because beforehand it was still picking up some files. I did a cursory investigation and I think it was because those files had a Rea*d*only attribute, but that’s only an assumption. Anyway, it works as desired now – thank you very very much.

I have no control over this application, I just know that I need to give a user permission access to the venders folder.

Any advice on how to make this work?

Thanks,

I am new to poweshell scripting, i wanted to set the permissionss of local users/group remotely on some machines.

Just wanted to know whether the remore/target machine requires .net framwork for this script to work.

Thanks…Munib

http://www.powershell.nu/2009/04/27/part-116-adding-homefolder-through-powershell/

(I found it after I wrote this ….)

Anyway, I am having anissue with your Get-AD.ps1 file …

I just started working with PowerShell …. I can’t believe i waited this long and kept doing things with VBScript! anyway ….. I tested your script and works nicely, good job.

I have several questions:

a) If i wanted to run the script remotely to create individual folders based on a user’s list the script is reading (I extracted it from AD) to create individual user folders within an existing or non-existing share on a remote server, what would it be the best way? in the past using VBScript this what I have done:

Option Explicit
Dim intRow, objExcel, objSheet, strPathExcel
Dim strHomeFolder, strHome, strUser
Dim objFSO, objShell, intRunError

strHome = “\\ServerName\ShareName\”
strPathExcel = “C:\ExcelFile.xlsx”
intRow = 3 ‘ Row 1 contains headings
‘ Open the Excel spreadsheet
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objExcel = CreateObject(“Excel.Application”)
Set objSheet = objExcel.Workbooks.Open(strPathExcel)
‘ Create a shell for cmd and CACLS
Set objShell = CreateObject(“Wscript.Shell”)

‘ Here is the loop that cycles through the cells
Do Until (objExcel.Cells(intRow,1).Value) = “”
strUser = objExcel.Cells(intRow, 1).Value
Call HomeDir ‘ I decided to use a subroutine
intRow = intRow + 1
Loop
objExcel.Quit ‘ Clears up Excel

Sub HomeDir()
strHomeFolder = strHome & strUser
If strHomeFolder “” Then
If Not objFSO.FolderExists(strHomeFolder) Then
On Error Resume Next
objFSO.CreateFolder strHomeFolder
If Err.Number 0 Then
On Error GoTo 0
Wscript.Echo “Cannot create: ” & strHomeFolder
End If
On Error GoTo 0
End If
If objFSO.FolderExists(strHomeFolder) Then

‘ Assign user permission to home folder.
intRunError = objShell.Run(“%COMSPEC% /c Echo Y| cacls “_
& strHomeFolder & ” /e /c /g Administrators:f “_
& strUser & “:F”, 2, True)
If intRunError 0 Then
Wscript.Echo “Error assigning permissions for user ” & strUser & ” to home folder ” &
strHomeFolder
End If
End If
End If
End Sub
objExcel.Quit
WScript.Quit

The previous script works and I do want to emulate the same with your script.

b) is there a better way to do this such as pulling the data directly from AD? using som type of AD query or Wmi calling?