Meraba arkadaşlar konuyu kısa tutacağım.Windows 7 kullanıyorum ve sürekli notepadde bir şey açılıyor.Virüs herhalde.Ben bunu format atmadan nasıl giderebilirim.Yazanlar şunlar:
Set WshShell = CreateObject("WScript.Shell")
PINGFlag = Not CBool(WshShell.run("ping -n 1 www.google.com",0,True))
Set objFSO=CreateObject("Scripting.FileSystemObject")
Dim status
If PINGFlag = True Then
status="ok"
Else
status="no"
End If
outFile="C:\Configration\Trtpg\tik_MOzhyH.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write status & vbCrLf
objFile.Close
Hepsinde bunun gibi şeyler yazıyor ama bazılarında outFile="C:\Configration\Trtpg\tik_MOzhyH.txt" yazacağına outFile="C:\Configration\Trtpg\tik_gtEe.txt" yazıyor nasıl düzeltebilirim.Programıda kaldırdım.
Konuyu yanlış yere açtıysam özür dilerim.Teşekkürler