Script simple para sustituir el fichero de la imagen corporativa de la firma que los usuarios se crean en el Outlook.
En mi empresa cambiamos el logotipo y este script fué usado para cambiar a todos los usuarios la imagen del logotipo de la firma del correo. Está probado en Windows 2000 y XP.
¿Como funciona este script?
Busca el fichero de imagen dentro del directorio de usuario del pc donde se almacenan las firmas de los correos.
Si existe lo sustituye por el nuevo y deja un fichero "hecho.txt" para saber que en ese pc ya se ha ejecutado. Cuando al día siguiente el usuario hace login lo primero que busca el script es el fichero "hecho.txt", si existe termina y no modifica nada.
Si, ya se, este script es un poco personalizado para este caso pero espero que algunas partes del mismo le sean útiles a alguno de los lectores de este blog.
Visual Basic:
-
Set shell= WScript.CreateObject("WScript.Shell")
-
strUserName = shell.ExpandEnvironmentStrings("%USERNAME%")
-
-
dim Ruta
-
Ruta= "C:\Documents and Settings\" & strUserName & "\Datos de Programa\Microsoft\Signatures\"
-
-
call ShowFolderList (Ruta, strUserName)
-
-
Sub ShowFolderList(Ruta, strUserName)
-
Dim fs, f, fc, s
-
dim dia, mes, ano
-
dia = day(date ())
-
mes = month (date())
-
ano = year (date())
-
hora = hour(time())
-
minuto = minute(time())
-
-
strUserName = strUsername & fecha
-
'WScript.echo strUserName
-
Set fs = CreateObject("Scripting.FileSystemObject")
-
If fs.FolderExists (Ruta) then
-
Set f = fs.GetFolder(Ruta)
-
Set fc = f.SubFolders
-
if fs.FileExists(Ruta & "\hecho.txt") then
-
' WScript.echo "Ya esta"
-
else
-
For Each f in fc
-
s = f.path & "\img001.gif"
-
' WScript.echo s
-
if fs.FileExists(f.Path & "\image001.gif") then
-
'WScript.echo f.path
-
fs.CopyFile "P:\Informatica\firma\image001.gif", f.path & "\image001.gif"
-
-
Set f = fs.CreateTextFile(Ruta & "\hecho.txt", True)
-
Set f = fs.CreateTextFile("P:\informatica\firma\" & strUserName & "-" & dia & "-" & mes & "-" & ano & "-" & hora & "-" & minuto & ".txt", True)
-
end if
-
Next
-
End if
-
end if
-
End Sub
Comentarios Recientes