3
WMI- Objekt erstellen
Hallo zusammen.
Ich versuche seit einer Ewigkeit ein PrinterPort auf einem Remote- Server mittels WMI zu erstellen.
Ich habe das ganze bereits in einem VBA Projekt realisiert und es funktioniert einwandfrei.
Jetzt will ich das ganze als Web- Applikation realisieren:
Aber hier erhalte ich immer bei dem WMI- Objekt eine Fehlermeldung die wohl auf ein Berechtigungsproblem
zurückzuführen ist.
Der Code den ich dazu verwende sieht folgendermassen aus:
Mein Web-server ist ein Windows Server 2003 SP2 (Standard Edition) mit IIS 6 und Framework v2.0
Mein Printserver ist ein Windows Server 2003 R2 SP2 (Standard Edition) mit Framework v1.1
Ich hoffe es hat jemand von euch einen guten Rat bzw. die Lösung ;o)
Ich versuche seit einer Ewigkeit ein PrinterPort auf einem Remote- Server mittels WMI zu erstellen.
Ich habe das ganze bereits in einem VBA Projekt realisiert und es funktioniert einwandfrei.
Jetzt will ich das ganze als Web- Applikation realisieren:
Aber hier erhalte ich immer bei dem WMI- Objekt eine Fehlermeldung die wohl auf ein Berechtigungsproblem
zurückzuführen ist.
Der Code den ich dazu verwende sieht folgendermassen aus:
'Port(erstellen)
Dim objWMIService, objNewPort, objPrinter As Object
objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strPrintServer & "\root\cimv2")
objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = strNewPrinterName
objNewPort.Protocol = 1
objNewPort.HostAddress = strNewPrinterName
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = True
objNewPort.Put_()Mein Web-server ist ein Windows Server 2003 SP2 (Standard Edition) mit IIS 6 und Framework v2.0
Mein Printserver ist ein Windows Server 2003 R2 SP2 (Standard Edition) mit Framework v1.1
Ich hoffe es hat jemand von euch einen guten Rat bzw. die Lösung ;o)
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 88094
Url: https://administrator.de/forum/wmi-objekt-erstellen-88094.html
Ausgedruckt am: 24.12.2024 um 01:12 Uhr
3 Kommentare
Neuester Kommentar
salü cyberops
evtl hilft dir folgender link weiter! um dir genau weiterzuhelfen bräuchten wir eventuell schon die genaue fehlermeldung! probiers ma mit der methode dem script einen user mitzugeben der definitiv die rechte hat!
http://www.microsoft.com/germany/technet/datenbank/articles/600682.mspx ...
gruss tacker
evtl hilft dir folgender link weiter! um dir genau weiterzuhelfen bräuchten wir eventuell schon die genaue fehlermeldung! probiers ma mit der methode dem script einen user mitzugeben der definitiv die rechte hat!
http://www.microsoft.com/germany/technet/datenbank/articles/600682.mspx ...
gruss tacker
Hi Tracker
Merci für die Informationen, aber das hat mir leider auch nichs gebracht.
Ich habe jetzt versuch dem Prozess diverse User mitzugeben, aber das hat alles nichts genutzt.
Ich erhalte folgende Fehlermeldung,
wenn das Programm folgende Code- Zeile anspricht
Merci für die Informationen, aber das hat mir leider auch nichs gebracht.
Ich habe jetzt versuch dem Prozess diverse User mitzugeben, aber das hat alles nichts genutzt.
Ich erhalte folgende Fehlermeldung,
Exception Details: System.Exception: Cannot create ActiveX component.wenn das Programm folgende Code- Zeile anspricht
objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strPrintServer & "\root\cimv2")
Hi,
versuche mal bitte das hier (ich gehe davon aus, daß Du von VBA nach VBScript portiert hast):
'Port(erstellen)
Dim objWMIService, objNewPort, objPrinter
strPrintServer = "."
set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strPrintServer & "\root\cimv2")
set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = strNewPrinterName
objNewPort.Protocol = 1
objNewPort.HostAddress = strNewPrinterName
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = True
versuche mal bitte das hier (ich gehe davon aus, daß Du von VBA nach VBScript portiert hast):
'Port(erstellen)
Dim objWMIService, objNewPort, objPrinter
strPrintServer = "."
set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strPrintServer & "\root\cimv2")
set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = strNewPrinterName
objNewPort.Protocol = 1
objNewPort.HostAddress = strNewPrinterName
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = True
