Necesito que desde una de las sedes de la empresa me envien periodicamente unos archivos HTML que se van generando en algunos equipos en concreto.
Esto ha de ahcerse sin la intervencion del usuario y sin que les aparezca la ventanita de CMD, ni ninguna otra que pueda causar algun "despiste" de las aplicaciones que ejecutan habitualmente (lo que generaria llamadas al SAT, quejas, etc....)
Estos archivos se han de enviar via FTP en cuanto el equipo detecte que existe conexion "viva" de Internet
De momento he encontrado este script que copia y comprime , poer no veo la manera de enviarlo por FTP y/o detectar cuando la conexion esta activa para que no lo envie si no hay conexion (equipos portatiles)
Para comprimir:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = 'c:\\Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Compress
Wscript.Echo errResults
Next
para copiar usando WMI
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery( _
"Select * from Win32_Directory where Name = 'c:\\Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Copy("D:\Archive")
Wscript.Echo errResults
Next
A ver si hay algun guru de VBScript y me ayuda, porque yo ni idea de como hacerlo
