[％repeat_0 match="/data/option"％] [％=@title％] [％=@count％]票 [[％=@percent％]％]
[％_repeat_0％]
 
 
Set FSO = Wscript.CreateObject("Wscript.Shell")
FSO.Run ("D:\run.bat"),0,false

存为VBS 不显黑色框

@echo off
@regedit /s f:\netgames\QQGame\jz.reg
@regsvr32 -s NetShell.dll /u
@start /wait \\sys\netgames\bak\123\SETWALL.exe
f:
echo y|cacls f:\ /p everyone:r
echo y|cacls f:\netgames /p everyone:r
echo y|cacls d:\ /p everyone:r
echo y|cacls d:\tools /p everyone:r
attrib -s -h sx＊.＊＊e
attrib -s -h _desktop.ini
del /f/s/q autorun.inf
del /f/s/q sx＊.＊＊e
del /f/s/q _desktop.ini
del /f/s/q ＊.com
del /f/s/q desktop_.ini
d:
attrib -s -h sx＊.＊＊e
attrib -s -h _desktop.ini
del /f/s/q autorun.inf
del /f/s/q sx＊.＊＊e
del /f/s/q _desktop.ini
del /f/s/q ＊.com
del /f/s/q desktop_.ini
@exit

存为BAT 杀毒

底解决威金LOGO1等破坏exe文件的方法

备份脚本

Dim oShell
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "xcopy i:\p\＊.exe/s/c/y i:\ppp\"
Wscript.Quit

修复EXE文件脚本

Dim oShell
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "xcopy \\server\server\exe\＊.＊/s/c/y d:\p\"
Wscript.Quit

批处理删除文件

del d:\_desktop.ini /f/s/q/a
del d:\wsock32.dll /f/s/q/a

记录客户机所有动作记录的VBS

file2="\\192.168.0.123\123$\ok.htm"

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
       For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
          a=IPConfig.IPAddress(i)
   Next
End If
Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredProcesses = objWMIService. _   
ExecNotificationQuery("select ＊ from __instancecreationevent " _
       & " within 1 where TargetInstance isa 'Win32_Process'")

i = 0

Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
b=objLatestProcess.TargetInstance.CommandLine

set fso=createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ")
set file1=fso.opentextfile(file2,8,true)
file1.writeline now() & "---" & a & "---" & b & "<hr>"
file1.close

Loop