PS: 拜托兄弟!以后此类问题不要吼我哒!我想睡觉!

01.从服务器上调用墙纸的批处理如何写？

源码如下：
::注意-要把图片用软件转成BMP格式的.如果你只改格式是不可以的.一定要用软件转成BMP的
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d \\x\1.bmp /f
gpupdate /force

中间的个\\x\1.bmp X是服务器的路径

运行完以后记得刷新桌面，批处理如下：

源码如下：
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

02.批处理是不是可以把时间固定？我就是想要改成2007，别的不管，可以自动不？

源码如下：
for /f %%a in (‘date /t’) do set ys=%%a
date 2007%ys:~4%

03.XP！求删除目录和子目录下的所有文件的批处理？？？

源码如下：
set ys=这改成你的路径

rd %ys% /s /q

这样就OK咯

04.我有40台机 计算机名是 v001 v002 到v040 如何让 前20台机（v001~v020)运行一个程序，另外10台（v021~v30）运行另一个程序，最后10台运行又一个程序呢？

源码如下：
for /f “tokens=16*” %%a in (‘ipconfig /all^|find “Host”‘) do set ys=%%a
::如JSND-A036 计算机名在第7位开始是数字。那请在下面那输6,如不是请自行更改.
if %ys:~7% LEQ 20 (goto 1-20) else (goto 21)
exit
:21
if %ys:~7% LEQ 30 (goto 21-30) else (goto 31)
exit
:31
if %ys:~7% LEQ 40 (goto 31-40) else (exit)
exit

:1-20
::这写你要写的命令

exit
:21-30
::这写你要写的命令

exit
:31-40
::这写你要写的命令

?.TXT文件中有的机器执行1.exe，1.TXT文件中没有的机器执行2.exe

源码如下：
find /i “%COMPUTERNAME%” \\x\bu\1.txt &&d:\1.exe||d:\2.exe

05.怎么在批处理里调用注册表文件啊？

源码如下：
regedit /s d:\2.reg

06.我想在一个批处理文件当中,完成两个任务.可以不?如果可以,两个任务中间,应该怎么区分..比如 固定时间为2007年,还有自动更换壁纸.
在一个批处理文件当中完成.应该怎么写呢?

源码如下：
::自动更换壁纸

reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d \\x\1.bmp /f
gpupdate /force

::更改时间

for /f %%a in (‘date /t’) do set ys=%%a
date 2007%ys:~4%

::这样就可以了`

07.通过迅闪的游戏菜单调用批处理“在客人运行到虚拟盘的游戏的时候再自动连接虚拟盘

源码如下：
@echo off
::对于你说的删除在连接。我做不到。抱歉.但是这样对你来说应该够了吧.
iscsicli AddTargetPortal 192.168.0.2 3260
iscsicli LoginTarget iqn.2005-09.com.ackasia.iscsi:0 T * * * * * * * * * * * * * * * 0
echo 在连接服务器中.如果超过1分钟请呼叫网管
:go
ping 127.0.0.1 -n 2
dir X:\>nul&&exit||goto go

08.一个访问服务器共享文件夹“随机更换壁纸的批处理 比如服务器地址为192.168.1.250 \\192.168.0.250\ps$\01.bmp~100.bmp
要求是能随机在这些壁纸中随机更换一张作为客户机壁纸“`

源码如下：
::在ps$目录里可以加00到99张bmp.就可随机了
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d \\x\ps$\%time:~9%.bmp /f
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

09.G盘和I盘的数据要保持一至，G盘更新了，如何利用批处理对比G盘来更新I盘？

源码如下：
:go
xcopy G:\ I:\ /d /s /y
goto go
如你I盘只是用来备份的话这样就可以了
如你那个I盘也有用的话.建议你用软件 当然下面个VBS也可以实现
Dim Fso,wsh,BasicFod,DestFod,flnum,fdnum,t1,t2,tm,uflnum,nflnum,nfdnum
Set Fso = CreateObject(“Scripting.FileSystemObject”)
flnum=0
fdnum=0
uflnum=0
nflnum=0
nfdnum=0
t1 = timer()
BasicFod=”g:” ‘你要对比的样本文件夹
DestFod=”i:” ‘要删除文件的目标文件夹
ScanDel(DestFod)
ScanUpdate(BasicFod)
t2 = timer()
tm=cstr(int(( (t2-t1)*3000 )+0.5)/10)
Sub ScanDel(Dfd)
Set Dfolder=Fso.Getfolder(Dfd)
Set files=Dfolder.files
For Each file In files
Bfile = Ucase(Replace(Ucase(file),Ucase(DestFod),Ucase(BasicFod)))
If Not Fso.FileExists(Bfile) Then
file.Delete(True)
flnum = flnum + 1
End If
Next
Set subfolders=Dfolder.subfolders
For Each subfolder In subfolders
Bsubfolder = Ucase(Replace(Ucase(subfolder),Ucase(DestFod),Ucase(BasicFod)))
If Not Fso.FolderExists(Bsubfolder) Then
subfolder.Delete(True)
fdnum = fdnum + 1
Else
ScanDel(subfolder)
End If
Next
End Sub
Sub ScanUpdate(Bfd)
on error resume next
Set Bfolder=Fso.Getfolder(Bfd)
Set files=Bfolder.files
For Each file In files
Dfile = Ucase(Replace(Ucase(file),Ucase(BasicFod),Ucase(DestFod)))
Set bf = Fso.GetFile(file)
Set df = Fso.GetFile(Dfile)
if err then
err.clean:bf.copy(Dfile):nflnum = nflnum + 1
Else
if bf.DateLastModified <> df.DateLastModified or bf.size <> df.size then
bf.copy(Dfile):uflnum = uflnum + 1
end if
end if
Next
Set subfolders=Bfolder.subfolders
For Each subfolder In subfolders
Dsubfolder = Ucase(Replace(Ucase(subfolder),Ucase(BasicFod),Ucase(DestFod)))
Set bfod = Fso.Getfolder(subf