Eenmalig een programma opstarten

[edmoor]

Ik had er zin in
Mijn voorbeeld werkt hier prima, dus test het maar eens als je tijd hebt.

 

[AHulpje]

@edmoor
Windows defender meldt dat je zipje een virus bevat:

Trojan:Script/Wacatac.H!ml​

Kun je je VBscript eens als .txt bestand plaatsen?

 

[edmoor]

Er is niks mis mee.
Waarschijnlijk omdat het gaat om een Visual Basic script.
Beide bestanden in de zip zijn gewoon tekst.

De Script code:

Set fso=createobject("Scripting.FileSystemObject")
Set qfile=fso.OpenTextFile("OnceADay.dat",1,True)

Do while Not qfile.AtEndOfStream
    rgl = qfile.ReadLine
    If rgl <> "" And Left(rgl,1) <> "!" Then
        arr = Split(rgl, "=")
        Select Case arr(0)
            Case "COMMAND": opdr = arr(1)
            Case "LASTRUN": lrd = arr(1)
        End Select
    End If
Loop

qfile.Close

If CLng(CDate(lrd)) < CLng(Date) Then
    Set qfile=fso.OpenTextFile("OnceADay.dat",2,True)
    qfile.Write "COMMAND=" & opdr & Chr(10)
    qfile.Write "LASTRUN=" & Date
    Set oShell = CreateObject ("WScript.Shell")
    oShell.run opdr, 1, True
End If

Set qfile=nothing
Set fso=nothing

 

[AHulpje]

Dankjewel, en beter een iets te actieve virusscanner dan geen virusscanner.

 

[edmoor]

Helemaal waar.
Trouwens, die Trojan:Script/Wacatac.H!ml kan geen kwaad.
Die is als handtekening achter gebleven in een spel dat ik eens heb gedownload.
Die handtekeing is van het tool dat is gebruikt om de beveiliging van dat spel te omzeilen.
Wat ik uiteraard niet zelf heb gedan