VBSCRIPT

[soze]

I'm trying to edit this script so that it clears the contents of the "UCF" directory for everyone who logs on the machine. Right now it only clears the current logged on user.

 

Any help would be appreciated, I have very limited scripting knowledge.

 

 

 

 

Dim objWSHShell :Set objWSHShell = CreateObject("WScript.Shell")

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

 

DocumentumDir = ExpandEvnVariable("userProfile") & "\Documentum\"

If objFSO.folderExists(DocumentumDir & "ucf") Then

If objFSO.folderExists(DocumentumDir & "ucf.old") Then

objFSO.deleteFolder(DocumentumDir & "ucf.old")

End If

objFSO.MoveFolder DocumentumDir & "ucf" , DocumentumDir & "ucf.old"

End If

''_______________________________________________________________________________________________________________________________

Function ExpandEvnVariable(ExpandThis)

ExpandEvnVariable = objWSHShell.ExpandEnvironmentStrings("%" & ExpandThis & "%")

End Function

[srochford]

If you're tring to set it so that when user1 logs on to the machine it clears this folder under docs and settings for each user then you can't :-(

 

The docs and settings folders will be configured so that only the owner has rights to it (so user1 has rights to the user1 folder but not the user2 folder etc)

 

You can do it in the machine startup script but that's hard work unless you can assume that the D&S root is c:\docs and settings.

 

If that's OK then this should be on the right lines - note I haven't checked it but it's about right :-)

 

sDS="c:\documents and settings\"
set oFolder=ofso.getfolder(sDS)
for each oSubFolder in oFolder.subfolders
 DocumentumDir = sDS & oSu.name & "\Documentum\"
 If oFSO.folderExists(DocumentumDir & "ucf") Then
   If oFSO.folderExists(DocumentumDir & "ucf.old") Then
     oFSO.deleteFolder(DocumentumDir & "ucf.old")
   End If
   oFSO.MoveFolder DocumentumDir & "ucf" , DocumentumDir & "ucf.old"
 End If 
next

[soze]

OK, so I just name this with a .vbs and replace this with the old file?

 

 

 

If you're tring to set it so that when user1 logs on to the machine it clears this folder under docs and settings for each user then you can't :-(

 

The docs and settings folders will be configured so that only the owner has rights to it (so user1 has rights to the user1 folder but not the user2 folder etc)

 

You can do it in the machine startup script but that's hard work unless you can assume that the D&S root is c:\docs and settings.

 

If that's OK then this should be on the right lines - note I haven't checked it but it's about right :-)

 

sDS="c:\documents and settings\"
set oFolder=ofso.getfolder(sDS)
for each oSubFolder in oFolder.subfolders
 DocumentumDir = sDS & oSu.name & "\Documentum\"
 If oFSO.folderExists(DocumentumDir & "ucf") Then
   If oFSO.folderExists(DocumentumDir & "ucf.old") Then
     oFSO.deleteFolder(DocumentumDir & "ucf.old")
   End If
   oFSO.MoveFolder DocumentumDir & "ucf" , DocumentumDir & "ucf.old"
 End If 
next