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:

        '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)

Please also mark the comments that contributed to the solution of the article

Content-Key: 88094

Url: https://administrator.de/contentid/88094

Printed on: April 25, 2024 at 20:04 o'clock

3 Comments

Latest comment

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

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,

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

German Question Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments