Top-Themen

Aktuelle Themen (A bis Z)

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

gelöst VBS: Erlaubnis verweigert. Code:800A0046

Mitglied: Yannosch

Yannosch (Level 2) - Jetzt verbinden

04.11.2013 um 10:17 Uhr, 7829 Aufrufe, 2 Kommentare

Guten Tag liebe Community ...

Wie in der Beschreibung oben habe ich ein Problem mit der Erlaubnis. Ich kann es mir allerdings nicht wirklich erklären. Ich zeige euch mal den Teil des Scripts der angeblich den Fehler verursachen soll.

01.
 
02.
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
03.
		Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where State = 'Running'")
04.
		For Each objItem in colListOfServices
05.
			 If objItem.Name <> "" Then
06.
				allServices = allServices & objItem.Name & vbnewline
07.
 			 End If
08.
		Next
09.

10.
		Set fso = CreateObject("Scripting.FileSystemObject")
11.
		Set meineDatei = fso.CreateTextFile("c:\Running_Services.txt")
12.
		meineDatei.writeline ("Bitte das Notepad schließen, damit das Script weiterläuft!" & vbnewline & allServices)
13.
		Set objShell = CreateObject("WScript.Shell")
14.
		objShell.Run "notepad " & "c:\Running_Services.txt", 1, true
15.

16.
		Entscheidung_1 = MsgBox ("Möchten Sie das Script weiterverwenden?" & vbNewLine & _
17.
		" " & vbNewLine & _
18.
		" " & vbNewLine & _
19.
		"Drücken Sie JA, um zurück in die Dienstverwaltung zu kommen" & vbNewLine & _
20.
		"Drücken Sie NEIN, um das Programm zu beenden", vbYesNo + vbExclamation, "Verwaltungssoftware Umfangreich")
21.

22.
		Select Case Entscheidung_1
23.

24.
		case vbYes
25.
		LooptoDienstverwaltung = false
26.

27.

28.
		case vbNo
29.
		LooptoDienstverwaltung = true
30.

31.
		end select 
Nach der For-Each schleife das "NEXT" soll laut WSH den Fehler hervorrufen.
Auf die Datei die erstellt wird hat der Benutzer der das Script ausführt vollzugriff, genau wie auf alle anderen Verzeichnissen auch.

Nachdem der Teil des Codes den ich hier präsentiere durchlaufen wurde, kann der Benutzer durch klick wieder an den Anfang des hier aufgeführten Codes springen.

Schließe ich das Script und starte es noch einmal komplett neu dann klappt es ! .... wenn ich mich dafür enscheide wieder noch oben zuspringen (mittels schleife) und ich es dann nochmal probieren will , dann klappt es nicht. dann kommt die oben stehende Fehlermeldung.... ich weiß nicht weiter...

Vielleicht hat einer von euch noch ne Idee ... Sollten die Informationen nicht ausreichend sein dann einfach nochmal gezielt nachfragen , kann gerne noch weitere Informationen geben ..

Liebe Grüße von
Y@nnosch!!
Mitglied: Bitboy
04.11.2013 um 10:28 Uhr
HI,

mach mal in Zeile 15 ein meineDatei.Close
Bitte warten ..
Mitglied: Yannosch
04.11.2013 um 10:33 Uhr
1000 Dank ! Funktionier !!

Liebe Grüße und nochmals Danke von

Y@nnosch!!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

VBS Script lieferfert seit ein paar Tagen Fehler Code 800A0046 Erlaubnis Verweigert

Frage von thomas1972Batch & Shell5 Kommentare

Hallo, ich lasse mit folgendem Script (VBS) alle CSV Dateien in einem Verzeichnis jeweils das Komma durch Semikolon ersetzen. ...

LAN, WAN, Wireless

Captive Portal -) Netgear WAC104 - Frage zur Passwort "Erlaubnis"

gelöst Frage von NOFix95LAN, WAN, Wireless8 Kommentare

Hi together, ich habe eine Frage zum hier verlinkten Tutorial. Ich bin seit nun knapp 4 Jahren Windows Administrator, ...

Windows Server

Zugriff verweigert (Sicherheitsfilterung)

Frage von n0cturneWindows Server9 Kommentare

Hallo zusammen, seit kurzem habe ich das Problem, dass GPOs, die sich auf Clients anwende, nicht mehr greifen. Mein ...

Windows 7

PsExec Zugriff Verweigert

gelöst Frage von agowa338Windows 76 Kommentare

Hallo, Ich habe zur zeit das Problem, dass ich mehrere Clients habe, die weder in einer Domäne sind, noch ...

Neue Wissensbeiträge
Datenschutz

SiSyPHuS Win10: Analyse der Telemetriekomponenten in Windows 10

Tipp von freesolo vor 21 StundenDatenschutz1 Kommentar

Alle die sich detailliert für die Datensammlung interessieren die unter Windows 10 stattfindet, sollten sich folgende Analyse des BSI ...

Sicherheit
Adminrechte dank Intel-Grafikkarte
Information von DerWoWusste vor 1 TagSicherheit1 Kommentar

ist das Advisory, welches beschreibt, welche Intel HD Graphics Modelle Sicherheitslücken haben, mit denen sich schwache Nutzer zu Admins ...

Internet

EU Urheberrechtsreform: Eingriff in die Internetkultur

Information von Frank vor 1 TagInternet1 Kommentar

Liebe Besucherin, lieber Besucher, warum erscheint das obere Banner in allen Beiträgen? Aus Protest gegen Teile der geplanten EU-Urheberrechtsreform ...

Windows Server
Windows Backup - FilterManager Event 3
Tipp von NixVerstehen vor 2 TagenWindows Server

Hallo zusammen, ich bin kein gelernter ITler und auch beruflich nicht in dem Feld tätig. Wir setzen in unserem ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Glasfaserkabel verlegen und Anschlüsse setzen
Frage von LLL0rdLAN, WAN, Wireless21 Kommentare

Hallo Leute, ich muss demnächst ein Netzwerkkabel auf einer Länge von ca. 70 Metern verlegen. Das Netzwerkkabel soll dabei ...

Windows Server
Mac Rechner im Windows Netzwerk - was jetzt?
gelöst Frage von Kopfg3ldWindows Server18 Kommentare

Hallo zusammen, ich habe folgende Herausforderungen. Aber erst mal was kurz zum Netzwerk - Windows Server (ältester ist ein ...

Microsoft Office
Sharepoint 2016 mag keine Umlaute in .docx-Titeln
gelöst Frage von DerWoWussteMicrosoft Office14 Kommentare

Moin Kollegen. Nutzt hier jemand Sharepoint? Könnt Ihr, unabhängig von der Sharepointversion, bitte einen Test machen? Ladet ein .docx ...

Basic
VBS soll alle Ordner auswählen, die im Startmenu angezeigt werden
Frage von Senseless-CreatureBasic12 Kommentare

Guten Morgen - gibt es eine Möglichkeit, per VBS das Startmenu in Win10 zu modifizieren? Ich beherrsche VBS mittlerweile ...