Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Send Keys Script

Posted on 2009-07-13
5
Medium Priority
?
307 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 3

Expert Comment

by:rmconard
ID: 24839537
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
ID: 24840714
Does WXP SP 2 have WSH automatically or it needs to be downloaded.??
0
 
LVL 3

Expert Comment

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

Accepted Solution

by:
rmconard earned 2000 total points
ID: 24840782
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
ID: 24943318
I haven't tried it yet, but I will when I get a chance
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

INTRODUCTION The purpose of this document is to demonstrate the Installation and configuration of the Data Protection Manager product. Note that this demonstration was prepared on the basis of Windows OS is 2008 R2 and DPM 2010. DATA PROTECTI…
Citrix XenApp, Internet Explorer 11 set to Enterprise Mode and using central hosted sites.xml file.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

715 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