Go4Expert (http://www.go4expert.com/)
-   Meet and Greet (http://www.go4expert.com/community/meet-and-greet/)
-   -   setting permission to the folder through VB script (http://www.go4expert.com/community/setting-permission-folder-vb-script-t28126/)

sathish81 3Apr2012 01:13

setting permission to the folder through VB script
Hi ,

Can anyone help me out in creating a VB script which can read the values from either text file or excel and set permission to the folder

example in the excel or text pad

File shared folder names
Functional IDs
Folder 1
Read access
Folder 2
R/W access
Folder 3
Full access
Folder 4

Folder 5

Folder 6





Thanks in advance

kickerr 3Apr2012 19:06

Re: setting permission to the folder through VB script
It can be difficult creating a VB script that can do that. this may not be the best website for asking that. may i ask if you are trying any other sites?

sathish81 4Apr2012 00:59

Re: setting permission to the folder through VB script
No..I am new to VBScript world..I dont have any other website .I found the below snippet to give permission to the folder ..its working fine If I give folder name,fucntional Id and Tyrpe access hardcoded in teh script file..I am trying to modify this to read frm text or Excell

' Cacls.vbs
' Example VBScript to set Administrators permissions with Cacls
' Version 2.1 - September 2010
' ---------------------------------------------------------'
Option Explicit
Dim strHomeFolder, strHome, strUser
Dim intRunError, objShell, objFSO
strHomeFolder = "C:\TestFolderStructure"
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strHomeFolder) Then
' Assign user permission to home folder.
intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _
& strHomeFolder & " /E /c /g O035378:F", 2, True)
  If intRunError <> 0 Then
  Wscript.Echo "Error assigning permissions for user " _
  & strUser & " to home folder " & strHomeFolder
  WScript.Echo " Functional Id mapped succesfully"
  End If
End If
' End of Cacls example VBScript


All times are GMT +5.5. The time now is 15:54.