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.

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. Set shell= WScript.CreateObject("WScript.Shell")
  2. strUserName = shell.ExpandEnvironmentStrings("%USERNAME%")
  3.  
  4. dim Ruta
  5. Ruta= "C:\Documents and Settings\" & strUserName & "\Datos de Programa\Microsoft\Signatures\"
  6.  
  7. call ShowFolderList (Ruta, strUserName)
  8.  
  9. Sub ShowFolderList(Ruta, strUserName)
  10.   Dim fs, f, fc, s
  11.   dim dia, mes, ano
  12.   dia = day(date ())
  13.   mes = month (date())
  14.   ano = year (date())
  15.   hora = hour(time())
  16.   minuto = minute(time())
  17.  
  18.   strUserName = strUsername & fecha
  19.   'WScript.echo strUserName
  20.   Set fs = CreateObject("Scripting.FileSystemObject")
  21.   If fs.FolderExists (Ruta) then
  22.     Set f = fs.GetFolder(Ruta)
  23.     Set fc = f.SubFolders
  24.     if fs.FileExists(Ruta & "\hecho.txt") then
  25.     '   WScript.echo "Ya esta"
  26.     else
  27.       For Each f in fc
  28.         s = f.path & "\img001.gif"
  29.         ' WScript.echo s
  30.         if fs.FileExists(f.Path & "\image001.gif") then
  31.             'WScript.echo f.path
  32.             fs.CopyFile "P:\Informatica\firma\image001.gif", f.path & "\image001.gif"
  33.  
  34.         Set f = fs.CreateTextFile(Ruta & "\hecho.txt", True)
  35.         Set f = fs.CreateTextFile("P:\informatica\firma\" & strUserName & "-" & dia & "-" & mes & "-" & ano & "-" & hora & "-" & minuto & ".txt", True)
  36.         end if
  37.       Next
  38.     End if
  39.   end if
  40. End Sub


Vota este artículo:
1 Estrella2 Estrellas3 Estrellas4 Estrellas5 Estrellas (No Ratings Yet)
Loading ... Loading ...

Posts anterior y posterior:
«
»


Posts Relacionados: