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, 10097 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 ..
Ähnliche Inhalte
Windows Server
Code: 5: Unknown Error (4)

Frage von schauan zum Thema Windows Server ...

Exchange Server
Exhange 2016 bringt bei Server 2012 R2 MSDTC Error bei prüfung Requesites (5)

Frage von rainergugus zum Thema Exchange Server ...

Switche und Hubs
gelöst Cisco SG 200-08 firmware boot code language upgrade Was ist zu beachten ? (5)

Frage von dxellas zum Thema Switche und Hubs ...

Batch & Shell
gelöst PS: Suche "eleganteren" Code (10)

Frage von Kraemer zum Thema Batch & Shell ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...

Internet Domänen
Nameserver ein Geist? (9)

Frage von zelamedia zum Thema Internet Domänen ...