No funciona este script en vbs

De una revista de informática te comenta en un script de como puedes
recoger
los "puntos de control del sistema" en Wxp es sencillo... pero yo tengo
W2k
y me parece una buena utilidad.

Me dice que tengo un error en la linea 14 pero yo he copiado exactamente
lo
que viene en la revista y no hay manera.

Lo pongo como texto para que no os mosqueeis
********************
Dim a, b, c, d, e, f
Set f=CreateObject("Wscript.Shell")
Set a=Wscript.CreateObject("Scripting.FilesystemObject")
Set b=a.CreateTextFile("c:\puntos.txt",true)

if Wscript.Arguments.Named.Exists("Computer") Then
e=WScript.Arguments.Named.Item("Computer")
Else
e="."
End if

Set c = getobject("winmgmts:\\" & e &
"oot\default").InstancesOf("systemrestore")

For Each d In c
b.writeline "Creation Time=" & d.creationtime
b.writeline "Description=" & d.description
b.writeblanklines 1
Next

f.Run "notepad c:\puntos.txt",1,True
Set a=Nothing
Set f=Nothing
*****************

¿Donde esta el error?

Gracias a