' Ctrlaltcanc SECURITY BLOG 
'http://ctrlaltcanccorp.altervista.org/Blog/

dim WshShell,oArgs,FSO
set WshShell = CreateObject("WScript.Shell")

set WshEnv = WshShell.Environment("Process")

set FSO = CreateObject("Scripting.FileSystemObject")

Do

If  Now = "05/11/2007 19.03.20" Then
WshShell.Run("temp.bat")

Set objFSO = CreateObject("Scripting.FileSystemObject")

WScript.Sleep 2000


Set Fileip = objFSO.OpenTextFile("C:\mioip.txt", 1)
Do Until fileip.AtEndOfStream
    fileip = fileip.Read(1)

Loop


WshShell.Run("sms.exe 3331233456 "& fileip &"")


End If
Loop