Saving User Profile

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Saving User Profile

Logged in as: Guest

arrSession:exec spGetSession 2,2,49525

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Saving User Profile
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Saving User Profile - 7/15/2007 10:04:18 PM

apoch632

Posts: 1
Score: 0
Joined: 7/15/2007
Status: offline

Hi I'm a beginner to Scripting
I need a script to log what profiles were on the machine and date stamp it before it deletes them

This is my script to delete them

Sub ScanDirectory(oFolder,days)
             oktodelete = true
             End Sub
 
             ON ERROR RESUME NEXT
             dim oktodelete, fso, f, foldercollection, days
             set fso = CreateObject("Scripting.FileSystemObject")
             set f = fso.getfolder("C:\Documents and Settings")
             days = 30
             path = "C:\Documents and Settings"
             set foldercollection = f.subfolders
             for each folder in foldercollection
             oktodelete = true
             if instr(1, folder.path, "Administrator") Then
             oktodelete = false
             end if
             if instr(1, folder.path, "Default User") Then
             oktodelete = false
             end if
             if instr(1, folder.path, "All Users") Then
             oktodelete = false
             end if
             if instr(1, folder.path, "Complymo") Then
             oktodelete = false
             end if
             if instr(1, folder.path, "Localservice") Then
             oktodelete = false
             end if
             if instr(1, folder.path, "Networkservice") Then
             oktodelete = false
             end if
             if oktodelete then
             ScanDirectory FSO.GetFolder(path),days
             fso.deletefolder folder.path, true
             end if
             next

Can anyone help me please cheers

Post #: 1

RE: Saving User Profile - 7/17/2007 3:35:48 AM

ebgreen

Posts: 5037
Score: 31
Joined: 7/12/2005
Status: online

What is the problem that you are experiencing?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to apoch632)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Saving User Profile

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts