Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Error Code 800A0046 beim Ausführen eines VBScripts

Frage Entwicklung VB for Applications

Mitglied: Niklas89

Niklas89 (Level 1) - Jetzt verbinden

21.03.2012, aktualisiert 10:49 Uhr, 9757 Aufrufe, 3 Kommentare

Hallo zusammen, ich arbeite gerade an einem VBScript (Anfänger) , welches verschiedene Funktionen beinhaltet. Leider bekomme ich beim Ausführen immer eine Fehlermeldung

Hallo,

ich habe ein VBScript geschrieben, welches mir in folgender Reihenfolge helfen soll:

1. Windowsdienst beenden
2. IIS Applikationsdienst beenden
3.Backup Verzeichnisstruktur
4. Update Verzeichnisstruktur
5. IIS Applikationsdienst starten
6. Windowsdienst starten
7. Logfile speichern

Es erscheint mit jedem Schritt eine Pop-Up-Box und eine Zeile in der Logdatei wird geschrieben.


Ich führe das Script auf einem Windows Server 2008 R2 mit IIS 7 und Administratorrechten aus.

Leider bekomme ich immer eine Fehlermeldung wenn ich das Script starte:

Skript:
C:\User\Administrator\Desktop\NettroUpdate.vbs
Zeile: 40
Zeichen: 1
Fehler: Erlaubnis verweigert: 'GetObject'
Code: 800A0046
Quelle: Laufzeitfehler in Microsoft VBScript




Hier mein Script:

01.
''''''''''''''''''''''''''''''''''''''''''''''''''' 
02.
'Definitionen 
03.
''''''''''''''''''''''''''''''''''''''''''''''''''' 
04.
BackupfolderPath = "c:\" 
05.
Logfilename = "log.txt" 
06.
NetIGPPath = "" 
07.
NewVersionPath = "X:\xxxx" 
08.
Host = "." 
09.
ServiceName = "" 
10.
WebSiteID = "1" 
11.
 
12.
 
13.
 
14.
'Logfile 
15.
Set filesys = CreateObject("Scripting.FileSystemObject") 
16.
Set Logfile = filesys.CreateTextFile(Logfilename, True) 
17.
 
18.
'Stop Service 
19.
Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Host & "\root\cimv2") 
20.
Set ServiceList = WMIService.ExecQuery( "Select * from Win32_Service Where Name = '" & ServiceName & "'") 
21.
 
22.
For each Service in ServiceList 
23.
    Service.StopService() 
24.
Next 
25.
 
26.
Set ServiceList = WMIService.ExecQuery ("Select * from Win32_Service where Name='"& ServiceName &"'") 
27.
For each Service in ServiceList 
28.
	If Service.State = "Stopped" Then  
29.
        WScript.Echo "Applikationsdienst beendet" 
30.
		Logfile.WriteLine("Applikationsdienst beendet") 
31.
        Exit for    
32.
    End If  
33.
Next 
34.
 
35.
 
36.
 
37.
 
38.
'Stop AppPool 
39.
Set WebSite = GetObject("IIS://localhost/W3SVC/" & WebSiteID)  
40.
WebSite.Stop()  
41.
Logfile.WriteLine("Webseite beendet") 
42.
 
43.
Set AppPool = GetObject("IIS://localhost/W3SVC/AppPools/" & WebSite.AppPoolID)  
44.
AppPool.Stop() 
45.
WScript.Echo "AppPool beendet"  
46.
Logfile.WriteLine("AppPool beendet") 
47.
 
48.
 
49.
'BackupFolder erzeugen 
50.
IGPVersion = filesys.GetFileVersion(NetIGPPath & "\Nettropolis.NetIGP2.Programmzentrale.Dialoge.exe") 
51.
BackupFolder = BackupfolderPath & "NetIP3" & IGPVersion 
52.
 
53.
If filesys.FolderExists(BackupFolder) Then 
54.
	filesys.DeleteFolder BackupFolder 
55.
	 
56.
	filesys.CreateFolder(BackupFolder) 
57.
	Logfile.WriteLine("Backupverzeichnis erstellt") 
58.
	 
59.
	filesys.CopyFolder NetIGPPath, BackupFolder 
60.
	Logfile.WriteLine("Dateien gesichert nach " & BackupFolder) 
61.
End If 
62.
 
63.
'Delete CurrentIGP 
64.
RecursiveDeleteByExtension NetIGPPath 
65.
 
66.
 
67.
'Copy New Version 
68.
filesys.CopyFolder NewVersionPath, NetIGPPath 
69.
WScript.Echo "Kopiervorgang erfolgreich" 
70.
 
71.
 
72.
  
73.
'Start AppPool 
74.
AppPool.Start()  
75.
WScript.Echo "AppPool gestartet"  
76.
 
77.
'Start Service 
78.
For each Service in ServiceList 
79.
    Service.StartService() 
80.
Next 
81.
WScript.Echo "Applikationsdienst gestartet"  
82.
 
83.
Logfile.Close 
84.
 
85.
 
86.
 
87.
'Delete recursively 
88.
'Funktion löscht alle Dateien bis auf die mit der Endung .config  
89.
sub RecursiveDeleteByExtension(byval Directory) 
90.
	set Folder = filesys.GetFolder(Directory) 
91.
	for each File in Folder.Files 
92.
		If filesys.GetExtensionName(File.Path) <> "config" Then 
93.
			File.Delete 
94.
		End If	 
95.
	next		 
96.
	for each SubFolder in Folder.SubFolders 
97.
		RecursiveDeleteByExtension SubFolder.Path 
98.
	next 
99.
end sub

Für Hilfe wäre ich sehr dankbar


Freundliche Grüße
Mitglied: Skyemugen
21.03.2012 um 10:48 Uhr
Aloha,

ja für Hilfe wäre so manch einer dankbar und wir sind immer über sinnvolle <code></code> Formatierungen dankbar (die man auch im Nachhinein noch reineditieren kann), worum ich dich auch bitten würde, denn Plaintext liest sich ein wenig ... suboptimal, zumal die Korrektur sich auf Zeilennummern beziehen wird, die momentan fehlen.

greetz André
Bitte warten ..
Mitglied: Niklas89
21.03.2012 um 10:50 Uhr
Zitat von Skyemugen:
Aloha,

ja für Hilfe wäre so manch einer dankbar und wir sind immer über sinnvolle <code></code>
Formatierungen dankbar (die man auch im Nachhinein noch reineditieren kann), worum ich dich auch bitten würde, denn Plaintext
liest sich ein wenig ... suboptimal, zumal die Korektur sich auf Zeilennummern beziehen wird, die momentan fehlen.

greetz André

Hallo André , habs mal editiert, danke.
Bitte warten ..
Mitglied: 60730
21.03.2012 um 20:28 Uhr
moin,

Code 800A0046 und die Info:
Fehler: Erlaubnis verweigert: 'GetObject'

das ist doch "einfach" (danke trotzdem für die Code block edition)

"Darfst" du ( irgendeiner im IIS scripte ausführen? -sehr wahrscheinlich nicht.
Denn das sagt dir ja das script.

Leider bekomme ich immer eine Fehlermeldung wenn ich das Script starte:
bedeutet das via rechtsklick als admin, oder als admin angemeldet via doppelklick?

Gruß
Bitte warten ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Windows Server
Code: 5: Unknown Error (4)

Frage von schauan zum Thema Windows Server ...

Windows 8
gelöst Active Directory Default User.v2 Profile - Windows 8.1 Apps Error (4)

Frage von adm2015 zum Thema Windows 8 ...

Erkennung und -Abwehr
Port 7547 SOAP Remote Code Execution Attack Against DSL Modems Internet Storm Center (5)

Link von Lochkartenstanzer zum Thema Erkennung und -Abwehr ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...

Microsoft Office
Keine Updates für Office 2016 (11)

Frage von Motte990 zum Thema Microsoft Office ...