Send Keys Script

Send Keys Script

I need a Send Key script that:
 renames a folder
 give a certain user Full Access NTFS Permissions to a certain folder in his local computer.

Thanks
jskfanAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

rmconardCommented:
Here's how to rename a folder:

Set RenameFolder = CreateObject("Scripting.FileSystemObject")
RenameFolder.MoveFolder "C:\Current\Folder" , "C:\New\Folder"

And here's a method to set folder permissions to one person or group. You will need WSH installed for this to work so you can use WScript commands. You can get WSH here:

http://www.microsoft.com/downloads/details.aspx?FamilyId=C717D943-7E4B-4622-86EB-95A22B832CAA&displaylang=en

You will also notice where it says "NAME_OF_PERSON" and "C:\WhateverFolder". These are the only 2 things you need to change yourself.

Good luck!

-Ryan
Function GivePermission()
           Dim strHomeFolder, strHome, strUser
           Dim intRunError, objShell, objFSO
 
	strHomeFolder = "C:\WhateverFolder"
 
	Set objShell = CreateObject("Wscript.Shell")
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	If objFSO.FolderExists(strHomeFolder) Then
		intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _
		& strHomeFolder & " /e /c /g NAME_OF_PERSON:F ", 2, True)
		
		If intRunError <> 0 Then
			Wscript.Echo "Error assigning permissions for user " _
			& strUser & " to folder " & strHomeFolder
		End If
	End If
End Function

Open in new window

0
jskfanAuthor Commented:
Does WXP SP 2 have WSH automatically or it needs to be downloaded.??
0
rmconardCommented:
No version has WSH automatically. You will need to download it.
0
rmconardCommented:
Also, I was a little flaky with the rename function. Here's the code to actually work it as a function in your project.

Once that code is in there, you can call the function. So let's say you have a folder called "Pictures" located at "C:\My Documents\Pictures" and you want to rename that folder to "OldPictures". Then you would call the following:

RenameFolder ("C:\My Documents\Pictures", "C:\My Documents\OldPictures")
Function RenameFolder(strCurrFolder As String, strNewFolder As String)
     
     Set NameFolder = CreateObject("Scripting.FileSystemObject")
     NameFolder.MoveFolder strCurrFolder, strNewFolder
 
End Function

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
jskfanAuthor Commented:
I haven't tried it yet, but I will when I get a chance
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Legacy OS

From novice to tech pro — start learning today.