删除文件的VBS脚本
dim fso Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "server共享XXX.lnk","c:目标位置1",true '添加
fso.CopyFile "server共享XXX.lnk","c:目标位置2",true '添加
fso.DeleteFile "c:目标位置1XXX.lnk" ,true '删除 fso.DeleteFile "c:目标位置2XXX.lnk" ,true '删除
Set FSO=NoThing WScript.quit
无界面自动检测安装iscsi客户端，映射及断开映射vbs脚本
下列代码实现无界面自动检测安装iscsi客户端,自动映射
On Error Resume Next setupfile="iscsi2.0.exe" 'iscsi客户端安装文件路径
serverip="192.168.0.100" 'iscsi服务器ip
Set oshell= CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.fileexists(oshell.ExpandEnvironmentStrings("%WinDir%")+"system32iscsicpl.cpl")
then oshell.run setupfile&" /q",,1
end if
oshell.run "iscsicli AddTargetPortal "&serverip&" 3260",0,1
oshell.run "iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * * * * * * * * * * * * * * * 0",0,1
下例代码实现无界面删除iscsi映射盘
filetmp="c:my.txt"
On Error Resume Next
Set Shell = CreateObject("WScript.Shell")
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
shell.run "cmd /c iscsicli sessionlist>"&filetmp,0,1
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filetmp, ForReading)
aaa=thefile.readall
thefile.close
function myreadline()
X=instr(1,aaa,vbcrlf,vbTextCompare)
myline=mid(aaa,1,x-1)
aaa=right(aaa,len(aaa)-x)
if len(aaa) =<1 then myline ="end"
myreadline=myline
end function
Do While bbb<>"end"
bbb=myreadline
if bbb <> "end" then
if bbb <>" " then
if instr(bbb,"Session")<>0 then
temID=mid(bbb,instr(bbb,":")+1,len(bbb)-instr(bbb,":"))
shell.run "iscsicli logouttarget"&temID,0
end if
end if
end if
Loop
fso.deletefile(filetmp)
删除QQ用户文件强制删除是不行的了，要跳过的话这样：
Dim fso, folderspec, f, f1, fc
folderspec = "f:Program FilesTencentQQ" '设置你的QQ文件夹
Dim Re
Set Re = New RegExp
Re.Pattern = "^d{4,13}$"
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc If Re.Test(f1.name) Then
On Error Resume Next
f1.Delete(true)
On Error GoTo 0
End If
Next
格5分钟运行一次批处理程序
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Do Wsh.Run "d:aaa.bat" '你要执行的批处理
WScript.Sleep(300000)
Loop
