We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
11 days, 11 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Script to "reset" a profile
Posted on 2011-03-08
I'm trying to piece together a script that will do the following, and am wondering if anyone out there has a similar script they could share so I can test and hopefully use:
1. Display input box where you put a user's domain user account name
2. Confirm the name is correct, else go back to text box to re-enter
3. Take the username and make a backup of and delete a network folder (\\fs001\%username%$\Appli
4. Take same username and make a backup of and delete all the "contents" (not the folder) of (\\fs002\profiles$\%userna
5. Message saying complete. Or give an error if access to delete said folders is denied.
1. Display input box where you put a user's domain user account name
2. Confirm the name is correct, else go back to text box to re-enter
3. Take the username and make a backup of and delete a network folder (\\fs001\%username%$\Appli
4. Take same username and make a backup of and delete all the "contents" (not the folder) of (\\fs002\profiles$\%userna
5. Message saying complete. Or give an error if access to delete said folders is denied.
[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
2
3 Comments
Hi, this won't delete anything yet, because all of the objFSO.DeleteFile and objFSO.DeleteFolder statements are commented out, but give it a shot and see if it works for you. Set strBackupFolder to the folder to copy the files to.
Regards,
Rob.
Regards,
Rob.
blnConfirmed = vbNo
While blnConfirmed = vbNo
strUsername = InputBox("Enter username:", "Username")
blnConfirmed = MsgBox("You entered: " & strUsername & VbCrLf & "Is this correct?", vbYesNo, "Confirm Username")
Wend
' Set your destination backup folder here
strBackupFolder = "\\fs001\Backups\" & strUsername & "\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
blnBackup = True
If objFSO.FolderExists(strBackupFolder) = False Then
On Error Resume Next
objFSO.CreateFolder strBackupFolder
If Err.Number <> 0 Then blnBackup = False
Err.Clear
On Error GoTo 0
End If
If blnBackup = False Then
MsgBox "Unable to create " & strBackupFolder & VbCrLf & "Cannot back up folder."
Else
If Right(strBackupFolder, 1) <> "\" Then strBackupFolder = strBackupFolder & "\"
strFolder = "\\fs001\" & strUsername & "$\Application Data\Microsoft"
If objFSO.FolderExists(strFolder) = False Then
MsgBox strFolder & " does not exist. Cannot back up folder."
Else
objFSO.CopyFolder strFolder, strBackupFolder, True
'objFSO.DeleteFolder strFolder, True
End If
strFolder = "\\fs002\profiles$\" & strUsername
For Each objFile In objFSO.GetFolder(strFolder).Files
objFSO.CopyFile objFile.Path, strBackupFolder, True
'objFSO.DeleteFile objFile.Path, True
Next
For Each objSubFolder In objFSO.GetFolder(strFolder).SubFolders
objFSO.CopyFolder objSubFolder.Path, strBackupFolder, True
'objFSO.DeleteFolder objSubFolder.Path, True
Next
End If
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
A project that enables an administrator to perform actions within a user session context not just at the time of login but any time later on day(s) or week(s) later.
Originally, this post was published on Monitis Blog, you can check it
here
.
In business circles, we sometimes hear that today is the “age of the customer.” And so it is. Thanks to the enormous advances over the past few years in consumer techno…
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
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…
- Document Management
- Document Imaging
- Programming
- Adobe Acrobat
- Scripting Languages
- Printers and Scanners, *Scripts, *batch, *PDF
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month11 days, 11 hours left to enroll
623 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.