Error Code 800A0046 beim Ausführen eines VBScripts

'''''''''''''''''''''''''''''''''''''''''''''''''''  
'Definitionen  
'''''''''''''''''''''''''''''''''''''''''''''''''''  
BackupfolderPath = "c:\"  
Logfilename = "log.txt"  
NetIGPPath = ""  
NewVersionPath = "X:\xxxx"  
Host = "."  
ServiceName = ""  
WebSiteID = "1"  



'Logfile  
Set filesys = CreateObject("Scripting.FileSystemObject")  
Set Logfile = filesys.CreateTextFile(Logfilename, True)

'Stop Service  
Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Host & "\root\cimv2")  
Set ServiceList = WMIService.ExecQuery( "Select * from Win32_Service Where Name = '" & ServiceName & "'")  

For each Service in ServiceList
    Service.StopService()
Next

Set ServiceList = WMIService.ExecQuery ("Select * from Win32_Service where Name='"& ServiceName &"'")  
For each Service in ServiceList
	If Service.State = "Stopped" Then   
        WScript.Echo "Applikationsdienst beendet"  
		Logfile.WriteLine("Applikationsdienst beendet")  
        Exit for   
    End If 
Next




'Stop AppPool  
Set WebSite = GetObject("IIS://localhost/W3SVC/" & WebSiteID)   
WebSite.Stop() 
Logfile.WriteLine("Webseite beendet")  

Set AppPool = GetObject("IIS://localhost/W3SVC/AppPools/" & WebSite.AppPoolID)   
AppPool.Stop()
WScript.Echo "AppPool beendet"   
Logfile.WriteLine("AppPool beendet")  


'BackupFolder erzeugen  
IGPVersion = filesys.GetFileVersion(NetIGPPath & "\Nettropolis.NetIGP2.Programmzentrale.Dialoge.exe")  
BackupFolder = BackupfolderPath & "NetIP3" & IGPVersion  

If filesys.FolderExists(BackupFolder) Then
	filesys.DeleteFolder BackupFolder
	
	filesys.CreateFolder(BackupFolder)
	Logfile.WriteLine("Backupverzeichnis erstellt")  
	
	filesys.CopyFolder NetIGPPath, BackupFolder
	Logfile.WriteLine("Dateien gesichert nach " & BackupFolder)  
End If

'Delete CurrentIGP  
RecursiveDeleteByExtension NetIGPPath


'Copy New Version  
filesys.CopyFolder NewVersionPath, NetIGPPath
WScript.Echo "Kopiervorgang erfolgreich"  


 
'Start AppPool  
AppPool.Start() 
WScript.Echo "AppPool gestartet"   

'Start Service  
For each Service in ServiceList
    Service.StartService()
Next
WScript.Echo "Applikationsdienst gestartet"   

Logfile.Close



'Delete recursively  
'Funktion löscht alle Dateien bis auf die mit der Endung .config   
sub RecursiveDeleteByExtension(byval Directory)
	set Folder = filesys.GetFolder(Directory)
	for each File in Folder.Files
		If filesys.GetExtensionName(File.Path) <> "config" Then  
			File.Delete
		End If	
	next		
	for each SubFolder in Folder.SubFolders
		RecursiveDeleteByExtension SubFolder.Path
	next
end sub