+ Post New Thread
Results 1 to 4 of 4
Windows Thread, roaming profile has printers in it in Technical; Hi we have a problem our roaming profile has all the printer that the user has logged onto. How do ...
  1. #1

    Join Date
    Feb 2008
    Posts
    325
    Thank Post
    51
    Thanked 3 Times in 3 Posts
    Rep Power
    14

    roaming profile has printers in it

    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

  2. #2


    Join Date
    Mar 2009
    Location
    Leeds
    Posts
    6,589
    Thank Post
    228
    Thanked 856 Times in 735 Posts
    Rep Power
    296
    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

  3. #3

    Join Date
    Jun 2007
    Location
    London
    Posts
    894
    Thank Post
    64
    Thanked 171 Times in 140 Posts
    Rep Power
    55
    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

  4. #4

    Join Date
    Feb 2008
    Posts
    325
    Thank Post
    51
    Thanked 3 Times in 3 Posts
    Rep Power
    14
    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\Co mputerName\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

SHARE:
+ Post New Thread

Similar Threads

  1. Users Roaming Profile wont load, cannot delete profile on server?
    By jamin100 in forum Windows Server 2000/2003
    Replies: 8
    Last Post: 8th January 2010, 03:43 PM
  2. Vista Roaming Profile
    By BatchFile in forum Windows Vista
    Replies: 6
    Last Post: 8th July 2009, 04:33 PM
  3. Replies: 0
    Last Post: 12th November 2008, 11:01 AM
  4. Roaming Profile
    By darbyshire in forum Windows
    Replies: 1
    Last Post: 26th August 2008, 01:13 PM
  5. Roaming profile Help please
    By tickmike in forum Windows
    Replies: 7
    Last Post: 7th September 2006, 10:06 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •