[Fernando Reyes] Echame un cable please!!

Pues no sé como saber la versión, pero instalando la última no vas a
romper nada. ¿Lo has probado? ;-)

Pepe wrote on 23/05/2005 :

Pues si... es un W2K SP4 ... el caso es que yo lo probe un un WindowsXP y
me funcionaba y fue llevarlo a un Server que es donde realmente lo
necesitaba y me di con un canto en los dientes.. jajaja...
hay alguna manera de saber qeu version de Windows Scripting Host tengo
instalada??



"©Alf®edo©" escribió en el mensaje
news:

¿Tienes actualizado el win2k con el último service pack? Podría ser que
tuvieras una versión de WSH antigua o dañada. En el siguiente link la
puedes descargar.
http://www.microsoft.com/downloads/...x?FamilyIDç4494d3-c4e1-4e18-9c6c-0ea28c9a5d9d&DisplayLang=es

Pepe presented the following explanation :

Ante todo gracias por tu ayuda,
pero Windows Scripting Host no forma ya parte de Windows 2000 Server??
.. He buscado algo de informacion y solo veo ayuda sobre creacion de
Scripts pero no encuentro nada "instalable" al respecto!!


"©Alf®edo©" escribió en el mensaje
news:

Prueba a instalar Windows Scripting Host en el win2k, porque veo que
el script hace uso de las propiedades de FileSystemObjects y es
posible que por eso no te funcione.

Pepe wrote on 20/05/2005 :

Buenas,

hace poco me ayustate con un Script que copiaba el ultimo archivo
modifcado de una carpeta a otra carpeta.
Lo modifique con mis carpetas en un XP y me funciono pero me
encuentro que en un W2K server no me funciona.

El Script es este ( en este he quitado todo comentario y referencia
solo para poder identificar la linea que provoca el problema de
manera mas comoda, pero cuando lo tenga solucionado prometo
arreglarlo en el original que mantiene comentarios y creditos).

**************
Option Explicit
Const const_SobrescribeExistente = TRUE
Dim dbd_FechaMayor, str_NombreFichero
Dim str_Equipo, obj_WMI, obj_FileSystem
Dim col_Archivos, obj_Archivo
str_Equipo = "."
Set obj_WMI = GetObject("winmgmts:"&
"{impersonationLevel=impersonate}!\\" & str_Equipo & "oot\cimv2")
Set col_Archivos = obj_WMI. ExecQuery("Select * from CIM_DataFile
where " & "Path = '\\Documents and
Settings\\Administrador\\Configuración local\\Datos de
programa\\Microsoft\\Windows NT\\NTBackup\\data\\' And Drive = 'C:' "
& " And Name Like '%.log'")
For Each obj_Archivo in col_Archivos
If obj_Archivo.LastModified > dbd_FechaMayor Then
dbd_FechaMayor = obj_Archivo.LastModified
str_NombreFichero = obj_Archivo.Name
End If
Next
Set obj_FileSystem = CreateObject("Scripting.FileSystemObject")
obj_FileSystem.CopyFile str_NombreFichero ,"D:\Logs\" &
"INFORME_COPIA_" & f_Fecha & ".log",const_SobrescribeExistente
Function f_Fecha()
Dim a_Agno, m_Mes, d_Dia
m_Mes = Month(Date)
If m_Mes < 10 Then m_Mes = "0" & m_Mes
d_Dia = Day(Date)
If d_Dia < 10 Then d_Dia = "0" & d_Dia
a_Agno = Year(Date)
f_Fecha = a_Agno & m_Mes & d_Dia
End Function
***********************

El mensaje de error al ejecutarlo es el siguiente :

Linea : 9
Caracter : 1
Error : 0x80041017
Codigo : 80041017
Origen : (null)

En teoria la Linea 9 empieza "For Each..." y la verdad es que no veo
que es lo que puede estar mal.

Muchas gracias de antemano por tu enorme ayuda.

"Nada hay en el mundo tan común como la ignorancia y los charlatanes."
Cleóbulo

Dedicated to crow

"Nada hay en el mundo tan común como la ignorancia y los charlatanes."
Cleóbulo

Dedicated to crow

Un saludo.

"Nada hay en el mundo tan común como la ignorancia y los charlatanes."
Cleóbulo

Dedicated to crow

Buenas,

hace poco me ayustate con un Script que copiaba el ultimo archivo
modifcado de una carpeta a otra carpeta.
Lo modifique con mis carpetas en un XP y me funciono pero me encuentro que
en un W2K server no me funciona.

El Script es este ( en este he quitado todo comentario y referencia solo
para poder identificar la linea que provoca el problema de manera mas
comoda, pero cuando lo tenga solucionado prometo arreglarlo en el original
que mantiene comentarios y creditos).

**************
Option Explicit
Const const_SobrescribeExistente = TRUE
Dim dbd_FechaMayor, str_NombreFichero
Dim str_Equipo, obj_WMI, obj_FileSystem
Dim col_Archivos, obj_Archivo
str_Equipo = "."
Set obj_WMI = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\"
& str_Equipo & "oot\cimv2")
Set col_Archivos = obj_WMI. ExecQuery("Select * from CIM_DataFile where "
& "Path = '\\Documents and Settings\\Administrador\\Configuración
local\\Datos de programa\\Microsoft\\Windows NT\\NTBackup\\data\\' And
Drive = 'C:' " & " And Name Like '%.log'")
For Each obj_Archivo in col_Archivos
If obj_Archivo.LastModified > dbd_FechaMayor Then
dbd_FechaMayor = obj_Archivo.LastModified
str_NombreFichero = obj_Archivo.Name
End If
Next
Set obj_FileSystem = CreateObject("Scripting.FileSystemObject")
obj_FileSystem.CopyFile str_NombreFichero ,"D:\Logs\" & "INFORME_COPIA_" &
f_Fecha & ".log",const_SobrescribeExistente
Function f_Fecha()
Dim a_Agno, m_Mes, d_Dia
m_Mes = Month(Date)
If m_Mes < 10 Then m_Mes = "0" & m_Mes
d_Dia = Day(Date)
If d_Dia < 10 Then d_Dia = "0" & d_Dia
a_Agno = Year(Date)
f_Fecha = a_Agno & m_Mes & d_Dia
End Function
***********************

El mensaje de error al ejecutarlo es el siguiente :

Linea : 9
Caracter : 1
Error : 0x80041017
Codigo : 80041017
Origen : (null)

En teoria la Linea 9 empieza "For Each..." y la verdad es que no veo que
es lo que puede estar mal.

Muchas gracias de antemano por tu enorme ayuda.