Goedeavond,
Ik wil met taken planner om de 2 weken een melding laten zien, dat een klant een handeling op zijn computer moet doen.
Als hij dit doet wordt er een programma gestart,:
CODE:
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
---------------
Nu wil ik graag dat na 6 maanden een bericht verschijnt dat de klant de computer moet brengen voor een servicebeurt.
code:
if msgBox("Geachte klant: uw ICT-Keurmerk is verlopen, wilt u dit nog gebruiken?", vbYesNo, "") = vbYes then
msgbox "Neem contact op met V-LITE Computer Service om uw computer weer up to date te maken. Telefoon 0411-616591 of email: info@v-lite.nl"
else
msgbox "Jammer dat uw ons gaat verlaten."
Dim objShell
Set objShell = Wscript.CreateObject("WScript.Shell")
objShell.Run "ict3.vbs"
' Using Set is mandatory
Set objShell = Nothing
end if
-----------------
Als een klant niet verder wil dan kies hij voor Nee, en wordt ict3.vbs uitgevoerd. Hierbij wordt een dir. gewist.
code:
Const strPath = "c:\ictkeurmerk"
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call Search (strPath)
' Comment out below line if you'd like to use this script in windows schedule task
WScript.Echo"Het ICT-Keurmerk is van uw systeem verwijderd en niet meer geldig. Wilt u alsnog het ICT-keurmerk op uw computer of laptop, neem dan contact op met V-LITE Computer Service. Telefoon 0411-616591"
Sub Search(str)
Dim objFolder, objSubFolder, objFile
Set objFolder = objFSO.GetFolder(str)
For Each objFile In objFolder.Files
' Use DateLastModified for modified date of a file
If objFile.DateCreated < (Now() -1) Then
objFile.Delete(True)
End If
Next
For Each objSubFolder In objFolder.SubFolders
Search(objSubFolder.Path)
' Files have been deleted, now see if the folder is empty.
If (objSubFolder.Files.Count = 0) Then
objSubFolder.Delete(True)
End If
Next
End Sub
-------------------------
Dit werkt goed, maar het problem waar ik tegenaan loop is dat hij gaat kijken naar de createdatum die is altijd hetzelfde.
Ik zou willen dat er een datum weggeschreven gaat worden. De datum dat de vbs-bestanden op de computer geplaatst worden.
Dan zou ik met deze datum kunnen werken en aangeven na 150 dagen dat de licentie verloopt en na 180 dagen de melding dat de licentie verlopen is en dat dan het programma verwijderd wordt.
Een flink verhaal, maar met de code erbij is het verhaal wat duidelijker.
Kan ik dat doen in VBS script en dan de grote vraag hoe?
Wie kan en wil mij helpen.
Alvast bedankt,
MVG Frank
Ik wil met taken planner om de 2 weken een melding laten zien, dat een klant een handeling op zijn computer moet doen.
Als hij dit doet wordt er een programma gestart,:
CODE:
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
---------------
Nu wil ik graag dat na 6 maanden een bericht verschijnt dat de klant de computer moet brengen voor een servicebeurt.
code:
if msgBox("Geachte klant: uw ICT-Keurmerk is verlopen, wilt u dit nog gebruiken?", vbYesNo, "") = vbYes then
msgbox "Neem contact op met V-LITE Computer Service om uw computer weer up to date te maken. Telefoon 0411-616591 of email: info@v-lite.nl"
else
msgbox "Jammer dat uw ons gaat verlaten."
Dim objShell
Set objShell = Wscript.CreateObject("WScript.Shell")
objShell.Run "ict3.vbs"
' Using Set is mandatory
Set objShell = Nothing
end if
-----------------
Als een klant niet verder wil dan kies hij voor Nee, en wordt ict3.vbs uitgevoerd. Hierbij wordt een dir. gewist.
code:
Const strPath = "c:\ictkeurmerk"
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call Search (strPath)
' Comment out below line if you'd like to use this script in windows schedule task
WScript.Echo"Het ICT-Keurmerk is van uw systeem verwijderd en niet meer geldig. Wilt u alsnog het ICT-keurmerk op uw computer of laptop, neem dan contact op met V-LITE Computer Service. Telefoon 0411-616591"
Sub Search(str)
Dim objFolder, objSubFolder, objFile
Set objFolder = objFSO.GetFolder(str)
For Each objFile In objFolder.Files
' Use DateLastModified for modified date of a file
If objFile.DateCreated < (Now() -1) Then
objFile.Delete(True)
End If
Next
For Each objSubFolder In objFolder.SubFolders
Search(objSubFolder.Path)
' Files have been deleted, now see if the folder is empty.
If (objSubFolder.Files.Count = 0) Then
objSubFolder.Delete(True)
End If
Next
End Sub
-------------------------
Dit werkt goed, maar het problem waar ik tegenaan loop is dat hij gaat kijken naar de createdatum die is altijd hetzelfde.
Ik zou willen dat er een datum weggeschreven gaat worden. De datum dat de vbs-bestanden op de computer geplaatst worden.
Dan zou ik met deze datum kunnen werken en aangeven na 150 dagen dat de licentie verloopt en na 180 dagen de melding dat de licentie verlopen is en dat dan het programma verwijderd wordt.
Een flink verhaal, maar met de code erbij is het verhaal wat duidelijker.
Kan ik dat doen in VBS script en dan de grote vraag hoe?
Wie kan en wil mij helpen.
Alvast bedankt,
MVG Frank