Permission denied för VBS skript på AD server

Hej!!
jag har en fråga??
Jag har ett skript som skall ta bort filer automatiskt på en AD server. skriptet ser ut som följer:

Option Explicit

Dim objFSO, objFile, objFolder, objFilesCollection, PathToFolder
Dim ModDate, NowDate, ExpressionResult, NrDaysOld
Dim objFoldersCollection, objNewFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")

PathToFolder = "d:\BkpUser"
NrDaysOld = 10

Set objFolder = objFSO.GetFolder(PathToFolder)

Set objFoldersCollection = objFolder.SubFolders

Set objFilesCollection = objFolder.Files

For Each objFile In objFilesCollection
ModDate = FormatDateTime(objFile.DateLastModified, 2)
NowDate = FormatDateTime(Now(), 2)
ExpressionResult = DateDiff( "D", CDate(ModDate), CDate(NowDate))

	 If ExpressionResult \>= NrDaysOld Then
	 		 objFSO.DeleteFile(objFile.ShortPath)
	 End If

Next

For Each objNewFolder In objFoldersCollection
ModDate = FormatDateTime(objNewFolder.DateLastmodified, 2)
NowDate = FormatDateTime(Now(), 2)
ExpressionResult = DateDiff( "D", CDate(ModDate), CDate(NowDate))

	 If ExpressionResult \>= NrDaysOld Then
			 objFSO.DeleteFolder(objNewFolder.ShortPath)
	 End If

Next
Set objFSO = Nothing
När jag kör skriptet så får jag ett fel meddelande:
Script: c:\folder\folder\deleoldfiles.vbs
Line: 42
Char: 7
Error: Permission denied
Code: 800A0046

foldern som den försöker accessa är begränsad så att bara administrator har full access. Men när jag kör skriptet så kör jag det inloggad som administrator och får endå felmeddelandet.
När jag kör en schedule på den så kör jag den som administrator men ingenting händer.
Kan någon tala om för mig om det är så att skriptet körs som en ett annat konto och om det i sådana fall går att ge det kontot rättigheter till foldern??

Snälla hjälp mig!!