Set objFSO=CreateObject("Scripting.FileSystemObject")
'Lees het bestand
strFile = "C:\ictkeurmerk\DtChk.dat"
Set objFile = objFSO.OpenTextFile(strFile)
strLine= objFile.ReadLine
objFile.Close
If CLng(Date) - strLine >= 0 Then
strmessage = "Geachte klant, uw computer is beveiligd met het beveiligingssysteem van V-LITE Computer Service.Om de 14 dagen zal uw computer u vragen om opgeschoond te worden. Wanneer u deze opschoon aktie telkens uitvoert zal uw computer beter blijven werken en vooral veiliger zijn. Bij Internetbankieren bent u dan veilig. "
msgbox strmessage, 0 , " V-LITE ICT-Keurmerk, voor veilig internetbankieren."
end If
If CLng(Date) - strLine >= 183 Then
Set objShell = CreateObject("WScript.Shell")
'Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
objShell.Run "c:\ictkeurmerk\ict2.vbs"
End if
If CLng(Date) - strLine >= 14 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end if
If CLng(Date) - strLine >= 28 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 42 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 56 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 70 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 84 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 98 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 0 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 112 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 126 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 140 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 154 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 168 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
If CLng(Date) - strLine >= 182 Then
if msgBox("Bericht ICT-Keurmerk: Geachte klant, Het is al weer 14 dagen geleden dat u uw computer opgeschoond heeft. Het is erg belangrijk om dit minimaal 1x per 14 dagen uit te voeren. Zullen we het nu meteen even doen? Met vriendelijke groet, V-LITE Computer service.", vbYesNo, "") = vbYes then
Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("C:\Program Files\SUPERAntiSpyware\superantispyware.exe")
else
msgbox "Oke, geen probleem. Doe het dan binnen enkele dagen. Ik geeft u over 14 dagen weer een herinnering, fijne dag. Met vriendelijke groet, V-LITE Computer Service."
end If
End if
End if
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If