Skyport is working hard to help customers recover from recent attacks, like the Petya worm. This work has brought to light some important lessons. New malware attacks like this can take down your entire environment. Learn from others mistakes on how to prevent Petya like worms.
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
Active 4 days ago
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
![[Webinar] Lessons on Recovering from Petya](https://filedb.experts-exchange.com/files/public/2017/7/11/dcb3272a-62a8-4274-a34e-d1771610ec3b.png)
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
A brief introduction to what I consider to be the best editor for PowerShell.
The following article is intended as a guide to using PowerShell as a more versatile and reliable form of application detection in SCCM.
Learn how to match and substitute tagged data using PHP regular expressions. Demonstrated on Windows 7, but also applies to other operating systems. Demonstrated technique applies to PHP (all versions) and Firefox, but very similar techniques will w…
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…
- Shell Scripting
- Programming Languages-Other
- Scripting Languages
- Programming
- Notepad
- *AutoHotkey, *Scripts
Suggested Courses
Course of the Month6 days, 7 hours left to enroll
705 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.