No funciona este script en vbs

23/03/2006 - 12:43 por 00000 | Informe spam
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 tod@s
 

Leer las respuestas

#1 Mayo
20/04/2006 - 16:40 | Informe spam
hay algunos objetos que no se pueden invocar desde el browser por seguridad
prueba poniendo a tu pagina como "sitio de confianza"

Atte.

Mayo

(dt) - www.devtorres.net


"00000" escribió en el mensaje
news:
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



Preguntas similares