Ændre i registreringsdatabasen

Dette skulle gøre det :o)

Const HKEY_CURRENT_USER = &H80000001
printernavn = InputBox("Indtast printernavn")
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
strKeyPath = "Printers\Connections\,,vsprt01," & PrinterNavn
oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
strKeyPath = "Printers\Connections\,,vsprt01," & PrinterNavn
strValueName = "Server"
strValue = "\\\\vsprt01"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
strValueName1 = "Provider"
strValue1 = "win32spl.dll"
oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName1,strValue1

/Killer

Ser ud til at virke her... Afprøver lige i morgen, når jeg er på arbejde igen!

Ej, tror på det virker! Så værsågod... :-) ...og takker for hurtig respons!

np :o)
Thx. for points.
Skriv lige, hvis det ikke virker alligevel :o)

/Killer