Skal vente til det er udført..
Jeg har det her script:If WScript.Arguments.Count = 1 Then
Filename = WScript.Arguments.Item(0)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd /C f-prot.exe " & Filename & " /ARCHIVE /PACKED /SILENT /NOMEM /NOBOOT /REPORT=temp.tmp"
Const ForReading = 1
Const Create = False
' Declare local variables
Dim objFSO ' FileSystemObject
Dim TS ' TextStreamObject
Dim strLine ' local variable to store Line
Dim strFileName ' local variable to store fileName
Dim MyArray
Set filesys = CreateObject("Scripting.FileSystemObject")
strFileName = "temp.tmp"
If filesys.FileExists(strFileName) Then
' Instantiate the FileSystemObject
Set objFSO = wscript.CreateObject("Scripting.FileSystemObject")
' use Opentextfile Method to Open the text File
Set TS = objFSO.OpenTextFile(strFileName, ForReading, Create)
If Not TS.AtEndOfStream Then
Do While Not TS.AtendOfStream
strLine = TS.ReadLine ' Read one line at a time
if inStr(1, strLine , "Infection:", 1) > 0 then
MsgBox "Virus"
end if 'tilhører instr
Loop
End If
TS.Close
End If
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
Set afile =FSO.getfile("temp.tmp")
afile.delete
Som der tager f-prot og kører, og ligger resultatet i en fil, som så skal læses igennem for at finde det bestemte ord, men problemet er af hvad jeg kan se, at den først laver resultat-filen når den har kørt vbs-scriptet, hvordan kommer jeg udenom det.. eller kan man istedet for at skrive outputtet i en fil ikke bare tage det der kommer på skærmen når man kører f-prot og kører det igennem for det ord..
