Cris

Set shell= WScript.CreateObject("WScript.Shell")
strUserName = shell.ExpandEnvironmentStrings("%USERNAME%")
dim Ruta
Ruta= "C:\Documents and Settings\" & strUserName & "\Datos dePrograma\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
Creador de iconos
Option Explicit
Dim obj, objLink,Path
Set obj = CreateObject("WScript.Shell")
Path = obj.SpecialFolders("Desktop")
Set objLink = obj.CreateShortcut(Path & "\music.lnk")
objLink.TargetPath = "C:\Users\Jeremy\Desktop\Eminem - LoseYourself.mp3"
objLink.IconLocation = "C:\windows\system32\SHELL32.dll,168"
objLink.Save
wscript.echo "Shortcut Created."
Set obj = CreateObject("WScript.Shell")
Set objLink =obj.CreateShortcut("PATH AND NAME OF SHORTCUT.lnk")
objLink.IconLocation = "LOCATION OF ICON.ico"
objLink.Save
apagado de la computadora
DIM A
DIM B
A="5456346523456345734"
MSGBOX("Ingrese el codigo de su ordenador...