Daily IT Matters, this is the place where I post my daily findings on IT.

Tuesday, August 11, 2009

Recover Deleted Items Outlook 2000

By default, the Recover Deleted Items functionality is only enabled on the Deleted Items folder in a user's private folders. Items that are hard deleted cannot be recovered. To enable the Recover Deleted Items functionality on mail folders other than the Deleted Items folder (for example, for the Sent Items, Drafts, Outbox and Inbox folders), make the following changes to the registry:

  1. Start Registry Editor.
  2. Locate and then click the following key in the registry:


  3. On the Edit menu, click Add Value, and then add the following registry value:

    Value name: DumpsterAlwaysOn
    Data type: DWORD
    Value data: 1

  4. Close Registry Editor.

You can use an administrator's computer or a user's computer to make this change to the registry. After you change the registry, start Outlook, and then click Deleted Item Recovery on the Tools menu. A list of items that were hard deleted during the retention time that is set on the server is displayed.

If you are an administrator, you can set this functionality for all user workstations. To do this, use your computer to change the registry for all user workstations, and then open the affected user's mailbox as an additional mailbox. You can then recover deleted items from the user's mailbox mail folders.

Note If you are an administrator, and you want to open another user's mailbox to recover items in the user's private folders, your Windows NT account must have User permissions for that user's mailbox object. You must also add that user's mailbox to your own profile. To do this, follow these steps:

  1. Open Control Panel, and then double-click Mail.
  2. Open the Services properties, and then double-click Microsoft Exchange Server.
  3. Click the Advanced tab, and then click Add to add the mailbox to your profile.

Monday, August 10, 2009

Copy fonts using script for unattended vista install

I had to create a vbscript to copy fonts from a network share for an unattended vista (or windows 7) install

Const FONTS = &H14&
Set objShell = CreateObject("shell.Application")
Set objFolder = objShell.Namespace(FONTS)
strdir = "\\srv001\REMINST\Drivers\Finalize\Fonts"


Sub EnumDir(strdir)
dim FSO,f,fc
set FSO=Wscript.CreateObject("scripting.FileSystemObject")
If fso.FolderExists(strDir) then
set f=fso.GetFolder(strDir)
set fc=f.files
if fc.Count > 2 then
for each fl in fc
objFolder.CopyHere strdir & "\" & fl.name
End If
wscript.echo "Folder " & strDir & " NOT found"
end if
End Sub