roaming profile has printers in it

[itgeek]

Hi we have a problem our roaming profile has all the printer that the user has logged onto. How do we get rid of this?

 

Thanks

[sted]

load regedit

go to hkey users

file load hive

point at your roaming profiles ntuser.dat/man

go to printers and delete whaever is there

 

as always before playing round with regedit backup the file or at least export the key you changed

[timzim]

OR

 

1. Create/change a user who a. logs on using that profile & b. has write access to the profile folder.

2. rename user.man to user.dat

3. log on as the user in step 1

4. delete the printers from the profile

5. log off again

6. rename user.dat back to user.man

[itgeek]

Ok I now have this working. I am having trouble setting the default printer in the room. I am using the script below but how do I get it to select the deafult printer?

 

Option Explicit

DIM RegEntry, ComputerName

 

RegEntry="HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"

ComputerName = ReadRegValue(RegEntry)

 

if InStr(1,ucase(ComputerName),"LAB1-",vbTextCompare) > 0 then call SetPrinter("\\LAB1\LaserJet")

if InStr(1,ucase(ComputerName),"LAB2-",vbTextCompare) > 0 then call SetPrinter("\\LAB2\LaserJet")

if InStr(1,ucase(ComputerName),"OFFICE-",vbTextCompare) > 0 then call SetPrinter("\\OFFICE\LaserJet")

'so on and so forth.

wscript.quit

 

' *** This subroutine installs and sets the default printer

Sub SetPrinter(ByVal PrinterPath)

DIM WshNetwork

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection(PrinterPath)

WshNetwork.SetDefaultPrinter Printerpath

end sub

 

' **** This function returns the data in the registry value

Function ReadRegValue(ByVal RegValue)

DIM WSHShell

Set WSHShell = WScript.CreateObject("WScript.Shell")

ReadRegValue=""

On Error Resume Next

ReadRegValue= WSHShell.RegRead(RegValue)

End Function