Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 308
  • Last Modified:

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
0
jskfan
Asked:
jskfan
  • 3
  • 2
1 Solution
 
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
 
jskfanAuthor Commented:
I haven't tried it yet, but I will when I get a chance
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now