VBScript and 'Scripting.filesystemobject'

[placky]

Morning everyone

 

I have set the following VBS script to run when our computers start up along with delprof.exe to get rid of any locally cached profiles.

 

Const LocalDocumentsFolder = "C:\Documents and Settings\"

set objFSO = createobject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(localdocumentsfolder)

for each fldr in objFolder.SubFolders
if not isexception(fldr.name) then 
	objFSO.DeleteFolder fldr.path, True
end if
next


Function isException(byval foldername)
select case foldername
	case "All Users"
		isException = True
	case "Default User"
		isException = True
	case "LocalService"
		isException = True
	case "NetworkService"
		isException = True
	case "Administrator"
		isException = True
	case Else
		isException = False
End Select
End Function

 

it works perfectly on all our computers and even our terminal servers, well all except one! Its a terminal server running windows 2003 R2 and I get the following error

 

activex component can't create object:'Scripting.filesystemobject' in line 3 char1

 

Anyone have any ideas at a total loss here!

[binky]

Try reinstalling Windows Scripting Host on the computer.

[m2d2]

activex component can't create object:'Scripting.filesystemobject' in line 3 char1

 

Anyone have any ideas at a total loss here!

 

Are you using seperate copies on each machine of the same script. You may need to check how exactly you spelt Scripting.FileSystemObject. The only may I could get the same error was to mistype the name of the object between the quote marks.

[placky]

Thanks for the help Binky and m2d2!

 

A reinstall of the Scripting Host fixed it

 

Regards

 

Gareth