---
title: "Permission denied för VBS skript på AD server"
type: "forum-thread"
url: "https://www.webforum.nu/amne/windows/86043-permission-denied-för-vbs-skript-på-ad-server"
topic: "Windows"
topic_url: "https://www.webforum.nu/amne/windows"
author: "Mean"
published: "2003-09-15T13:07:49.000Z"
updated: "2003-09-15T13:31:20.000Z"
replies: 2
views: 236
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/windows/86043-permission-denied-för-vbs-skript-på-ad-server"
---

# Permission denied för VBS skript på AD server

## #1 — Mean, 2003-09-15T13:07Z

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!!

Permalänk: https://www.webforum.nu/p/86043

## #2 — SirPeter, 2003-09-15T13:23Z

Testa att lägga till kontot SYSTEM och ge det fullständiga rättigheter med.

Permalänk: https://www.webforum.nu/p/1156921

## #3 — Mean, 2003-09-15T13:31Z

Jag glömde att skriva det att System har fulla rättigheter oxå!!

Men tack för tipset:)

Permalänk: https://www.webforum.nu/p/1156932

---

Tråden på webben: https://www.webforum.nu/amne/windows/86043-permission-denied-för-vbs-skript-på-ad-server