[THIN] Re: Deleting Profiles
- From: "Callahan, Michael" <MichaelCallahan@xxxxxxxxxxxxxxxx>
- To: "thin@xxxxxxxxxxxxx" <thin@xxxxxxxxxxxxx>
- Date: Thu, 10 Mar 2005 09:53:58 -0600
Paste this into a .vbs file:
============================================================================
==
On Error Resume Next
sScriptFullName = WScript.ScriptFullName
sScriptPath = Left(sScriptFullName, InStrRev(sScriptFullName, "\"))
Set oShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWshSysEnv = oShell.Environment("Process")
sSysdrive = oWshSysEnv("SYSTEMDRIVE")
mstrPath = sSysdrive & "\" & "Documents and Settings"
Set oFolder = oFSO.GetFolder(mstrPath)
For Each oSubFolder In oFolder.SubFolders
Select Case oSubFolder.Name
Case "All Users"
Case "Default User"
Case Else
oFso.DeleteFolder oSubFolder,1
End Select
Next
========================================================================
As I stated in my previous email, I recommend setting this as a startup
script in group policy or local policy.
-----Original Message-----
From: Mario Nicoletatos [mailto:muray_n@xxxxxxxxx]
Sent: Thursday, March 10, 2005 9:43 AM
To: thin@xxxxxxxxxxxxx
Subject: [THIN] Deleting Profiles
Im Sorry to ask a question again so soon after the original question
Im after a script to delete all the Profiles in documnets and settings
I presently delete the locally cached Profiles and I also run DelProf,
however I am getting a number of old Profiles being left Behind
Again sorry for reasking a question
Thanks in advance
_____
Do you Yahoo!?
Yahoo! Small Business - Try
<http://us.rd.yahoo.com/evt=31637/*http://smallbusiness.yahoo.com/resources/
> our new resources site!
********** Confidentiality Notice **********
This electronic transmission and any attached documents or other
writings are confidential and are for the sole use of the intended
recipient(s) identified above. This message may contain information
that is privileged, confidential or otherwise protected from disclosure
under applicable law. If the receiver of this information is not the
intended recipient, or the employee, or agent responsible for delivering
the information to the intended recipient, you are hereby notified that
any use, reading, dissemination, distribution, copying or storage of this
information is strictly prohibited. If you have received this information in
error, please notify the sender by return email and delete the electronic
transmission, including all attachments from your system.
Other related posts:
