VBS - Registry

[Blade1981]

Hallo zusammen,

ich möchte in der Registry per vbs IP-Druckerports anlegen, dass diese nicht manuell eingetragen werden müssen. Es handelt sich hierbei um ca. 150 IP-Adressen in den Druckerports.

Das Script funktioniert so weit auch schon, nur eine Zeile wird nicht in die Registry geschrieben.

Hier das Testscript:
_________
dim IPPort 'FortlaufendeNummer
dim IPNummer, IP, Pfad
Set WshShell = CreateObject( "WScript.Shell" )

IPNummer = "172.31.33."
Pfad = "HKLM\SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port\Ports\"


For IPPort = 3 to 4

IP = CStr(IPNummer)+CStr(IPPort)

WshShell.RegWrite Pfad + IP + "\HostName", "", "REG_SZ"
WshShell.RegWrite Pfad + IP + "\HWAddress", "", "REG_SZ"
WshShell.RegWrite Pfad + IP + "\IPAddress", IP, "REG_SZ"
WshShell.RegWrite Pfad + IP + "\PortMonMibPortIndex", "00000000", "REG_DWORD"
WshShell.RegWrite Pfad + IP + "\PortNumber", "0000238c", "REG_DWORD"
WshShell.RegWrite Pfad + IP + "\Protocol", "00000001", "REG_DWORD"
WshShell.RegWrite Pfad + IP + "\SNMP Community", "public", "REG_SZ"
WshShell.RegWrite Pfad + IP + "\SNMP Enabled", "00000000", "REG_DWORD"
WshShell.RegWrite Pfad + IP + "\SNMP Index", "00000001", "REG_DWORD"
WshShell.RegWrite Pfad + IP + "\Version", "00000002", "REG_DWORD"
Next

Wscript.Echo "Fertig!"
_________

Es funktioniert nur diese Zeile nicht:
WshShell.RegWrite Pfad + IP + "\PortNumber", "0000238c", "REG_DWORD"

Das Script bricht ab mit dem Fehler:

Fehler: Typen unverträglich
Code: 800A000D
Quelle: Laufzeitfehler in Microsoft VBScript

Wisst ihr eine Lösung?

Danke!

[jaksa]

Warum benutzt Du kein WMI?

Installs a TCP/IP printer port on a computer.

Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
    ("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_169.254.110.14"
objNewPort.Protocol = 1
objNewPort.HostAddress = "169.254.110.14"
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False
objNewPort.Put_

Quelle: Printer Port Scripting, Monitor Printer Ports using VBScript

[Blade1981]

Weil ich mich mit VBS nicht soooo gut auskenne und eig. froh um meine Lösung war (Die leider wg. dem einen Eintrag nicht funktioniert )

Was ist der Vorteil wenn ich das per WMI mache? (Außer dass es funktionieren wird?) Es sollen sich viele mit unseren Scripten zurecht finden und wenn man zu speziell wird, ist das nicht mehr gegeben.

Danke trotzdem, ich probier es gleich mal aus!

Woran liegt es, dass ich den Key per VBS nicht in die Registry schreiben kann?

P.S.: Wofür ist der Unterschtrich am Ende?
Und wofür ist das SNMP?

[jaksa]

Du benutzt aber schon VBScript, deswegen dachte ich dass Du Dich damit auskennst.
Warum Deine Lösung nicht geht, kann ich Dir auf Anhieb nicht sagen. Auf den ersten Blick sieht die Zeile korrekt aus. Ich persönlich mag aber Reg Manipulationen nicht und versuche diese zu vermeiden wo es geht. Und da für die Druckergeschichte eine WMI Schnittstelle exisistiert, würde ich die auch benutzen.
Die Unterstriche sagen dem Interpreter dass der Befehl in der nächsten Zeile fortgesetzt wird.

[Blade1981]

Nun, ich "bastel" mir die Scripte immer entsprechend zurecht. Wirklich auskennen aber nicht
Ich habs auch schon hinbekommen mit deiner Hilfe, danke vielmals!

Hinweis:
Die Druckerports (IP-Ports) sind nur in der Registry hinterlegt und das ist ein gängiger Weg, IP-Ports anzulegen. Wird auch oftmals so im Netz beschrieben und wir haben das bisher auch so gemacht.
Da Änderungen aber in der ellen langen Reg-Datei nicht leicht zu vollziehen sind, bzw. eine Erweiterung der Ports sehr aufwändig ist, ist so ein Script schon eine schöne Lösung

Übrigens funktioniert die Lösung mit Windows7

Danke noch mal!

[NilsK]

Moin,

den Typenfehler bekommst du wahrscheinlich, weil der Hex-String nicht als solcher erkannt wird. Vermutlich müsstest du noch einen Präfix davor hängen.

Aber WMI ist eindeutig die bessere Alternative, denn auf die Weise steuerst du die Windows-Funktion und trägst nicht nur irgendwas in die Registry ein.

Gruß, Nils

[Blade1981]

Wie könnte dieser Präfix ausschauen?

[NilsK]

Moin,

da habe ich jetzt mangels Bedarf nicht recherchiert. Es gibt da unterschiedliche Notationsweisen. Ich denke, dass eine Google-Recherche dich da weiterbringen würde.

(Trotzdem bleibt WMI vorzuziehen.)

Gruß, Nils

[blub]

vermutlich mal 0x..... , ansonsten rechne mit calc.exe den hex-Wert zur Not ins dezimale um

cu
blub

[Blade1981]

Wenn ich nicht "0000238c" sondern "9100" verwende, wird der Wert in der Registry als "0000238c" eingetragen.
Das Umwandeln von HEX in DEZIMAL hat den Erfolg gebracht
0x hatte ich auch schon in verschiedenen Variationen versucht und das ging nicht.

Danke euch allen, jetzt bin ich glücklich