Vista - WshShell.RegRead

I am trying to use WshShell.RegRead to get the driver and port that a
printer is connected to.
The Key in the registry is HKCU\Software\Microsoft\Windows
NT\CurrentVersion\PrinterPorts

The problem is that the value name is "\\my_server\PrinterName"
Of course if I use the Key with the valuename as the argument for the
RegRead it trys to use
HKCU\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\\my_server\"
as the key and "PrinterName" as the value name and I get an error that the
key does not exist.

How can I read this registry value?

Thanks for any help
Fred

"Fred" <leavemealone@xxxxxx> wrote in message
news:ee5nGCppJHA.1248@xxxxxxLet's have a look at your script!

The VB procedure below tries to set the default printer but the RegRead
fails with "no such key". Obviously appending PrterName (which is the
registry's value name) to the Key actually changes the key. The Key becomes
"Original Key\\\myServer\" and value name becomes PrinterName.

How else can I read the registry value data at key:
"HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices\"
and value name:
"\\myServer\PrinterName"

or is there another way I can set the default printer.

Thanks
Fred


Sub SetDefaultPrinter(PrterName As String)
'PrterName is the printer name in the form \\myServer\PrinterName
Dim FPrinter As String, WShell As Object

Set WShell = CreateObject("WScript.Shell")
FPrinter = WShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows
NT\CurrentVersion\Devices\" & PrterName)
If FPrinter <> "" Then
WShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows
NT\CurrentVersion\Windows\device", FPrinter, REG_SZ
End If
Set WShell = Nothing
End Sub


"Pegasus [MVP]" <news@xxxxxx> wrote in message
news:e50ZKqtpJHA.5832@xxxxxx

I'm getting a little confused. In your first post you mentioned this
registry value:
HKCU\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts
which has now become
HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices

I also note that your program treats REG_SZ as a variable or as a constant
whereas in fact it should be a string, to be surrounded with double quotes.

About your main problem of being unable to extract registry data when the
value name refers to a remote machine: AFAIK, the RegRead method of the
Wscript Shell object is incapable of dealing with such value names. You need
to use WMI instead, e.g. like so in VB Script:

sPrinter = "\\Server\HPLJ4"
Const HKCU = &H80000001
sKey = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
Set oReg =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
iSuccess = oReg.GetStringValue(HKCU, sKey, sPrinter, sData)


"Fred" <leavemealone@xxxxxx> wrote in message
news:e7zQrI0pJHA.1248@xxxxxx

"Pegasus [MVP]" <news@xxxxxx> wrote in message
news:%23iXcmy0pJHA.5332@xxxxxxAlso, your program seems to be written in VB or VBA rather than VBScript.
Are you sure you are in the right newsgroup?

/Al

"Al Dunbar" <alandrub@xxxxxx> wrote in message
news:O1E%23Yb1pJHA.4108@xxxxxxReplying to me or to the OP?

"Pegasus [MVP]" <news@xxxxxx> wrote in message
news:%23wr0mh1pJHA.4840@xxxxxxThe OP. Sorry for not stating that more explicitly...

/Al