In reply to Alexander Sailer:

Hi Alexander,

I forgot a line
Set WshShell = CreateObject("WScript.Shell")
the 2 other I use a lot are
Set fso = CreateObject("Scripting.FileSystemObject")
To find info or play with the file.
and
Set objRegEx = CreateObject("vbScript.RegExp")
To access the registry.

Good day
Dan