Solved

Send Keys Script

Posted on 2009-07-13
5
301 Views
Last Modified: 2012-05-07
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
0
Comment
Question by:jskfan
  • 3
  • 2
5 Comments
 
LVL 3

Expert Comment

by:rmconard
Comment Utility
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
 

Author Comment

by:jskfan
Comment Utility
Does WXP SP 2 have WSH automatically or it needs to be downloaded.??
0
 
LVL 3

Expert Comment

by:rmconard
Comment Utility
No version has WSH automatically. You will need to download it.
0
 
LVL 3

Accepted Solution

by:
rmconard earned 500 total points
Comment Utility
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
 

Author Comment

by:jskfan
Comment Utility
I haven't tried it yet, but I will when I get a chance
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Log files are useful in diagnosing and repairing problems.  This is a list of common log files and their standard locations that I've compiled.   While this is not exhaustive, it is a pretty good list that I've found to be useful.  I may update it f…
The way I use Experts Exchange to assist me in analyzing and diagnosing a problem is I first enter a Verbose Question at Experts Exchange like: Office 2007 will hang when opening and saving files I then launch WordPad (any text editor will do) an…
The viewer will learn how to dynamically set the form action using jQuery.
The viewer will learn how to look for a specific file type in a local or remote server directory using PHP.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now