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?

[Webinar] Streamline your web hosting managementRegister Today

x
 
rmconardConnect With a Mentor Commented:
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
 
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
 
jskfanAuthor Commented:
I haven't tried it yet, but I will when I get a chance
0
All Courses

From novice to tech pro — start learning today.