VBS error logging.

Hej folkens...

Jeg har lavet et script til at distribuere en mappe til skrivebordet på X antal PCer. Det virker som sådan fint. Til gengæld kan jeg ikke rigtig få lagt noget fungerende error logging på. Scriptet ser ud som følger:
-------------------------------------------------------
On Error Resume Next
dim filesys, oShell, DestSys

DestPCer=Array("wks-d-080242","wks-d-080298")

Set filesys=CreateObject("Scripting.FileSystemObject")
Set oShell=WScript.CreateObject("WScript.Shell")
DestSys=filesys.GetSpecialFolder(1)

For Each x in DestPCer
Call Kopier(x)
Next

Function Kopier(x)
If filesys.FolderExists("LIMS") Then
filesys.CopyFolder "LIMS", "\\" & x & "\C$\Documents and Settings\All Users\Skrivebord\LIMS"
End If

REM If filesys.FolderExists("System32") Then
REM filesys.CopyFolder "System32", DestSys
REM End if
End Function
-------------------------------------------------------

Jeg har brug for, at det bliver logget, om jeg har opnået adgang til PCerne i arrayet DestPCer eller ej.

Håber I kan hjælpe.