代码真实有效！只读帐号密码加密部分没携带因为怕被^^利用。请有些不要脸的人就不要看了，我估计你也看不懂！

最后请需要的朋友自己行封装使用，有机会大家一起讨论各种语言的编写经验。（提示：那些^^人就不要找我了，找了很可能伤害到你自尊心）。

＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃

#include <GUIConstants.au3>
#include <string.au3>
Opt("TrayIconHide", 1)
Dim $netpatch,$fl,$def,$link,$test,$axc,$disk,$runname,$runpass,$diskdir,$disks,$temp2
Dim $GatewayIP,$GatewayMAC,$temp,$deldir,$paichu,$tes,$search,$file,$UserL,$Url
$axc = '"'
$netpatch=iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","远程路径","")
$TTT=iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","任务开始延时","")
$wingui=iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","任务界面","")
$Shutd=iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","任务完成后动作","")
$GatewayIP = iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","网关IP","")
$GatewayMAC = iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","网关MAC","")
$UserL = iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","客户机分类","")
$Url = iniread(@ScriptDir& "\" &"config.ini","MyBc基本配置","任务前自解压路径","")
if $Url <> "" then
run(""& $Url &"","",@sw_hide)
endif
Arp()
sleep($TTT)
$UserL=StringSplit($UserL, "|")
for $i = 1 to $UserL[0]
$resul = StringInStr($UserL[$i], @ComputerName)
if $resul > 1 then
RunA()
endif
Next
exit
Func RunA()
$UserL=$UserL[$i]
$UserL=StringSplit($UserL, ",")
$runpass=iniread(@ScriptDir& "\" &"config.ini",""& $UserL[1] &"","runpass","")
$runname=iniread(@ScriptDir& "\" &"config.ini",""& $UserL[1] &"","runname","")
$disk=iniread(@ScriptDir& "\" &"config.ini",""& $UserL[1] &"","远程与本地路径设置","")
$diskdir=iniread(@ScriptDir& "\" &"config.ini",""& $UserL[1] &"","任务目录名","")
$paichu=iniread(@ScriptDir& "\" &"config.ini",""& $UserL[1] &"","排出删除","")
$disk=StringSplit($disk, "!")
$disks=$disk[2]
$disks=StringSplit($disks, "\")
FileDelete($disks[1] &"\MyBc.log")
$temp2 = $diskdir
$diskdir=StringSplit($diskdir, ",")
Bc2()
if $diskdir <> "" then
Run3()
Else
Run2()
endif
EndFunc
Func Arp()
if $GatewayIP or $GatewayMAC <> "" then
$arp = 'arp -s'
$route = 'route change 0.0.0.0 mask 0.0.0.0'
Runwait(@ComSpec & ' /c ' & 'arp -d', "", @SW_HIDE)
Runwait(@ComSpec & ' /c ' & ""& $arp &" "& $GatewayIP &" "& $GatewayMAC &"", "", @SW_HIDE)
Runwait(@ComSpec & ' /c ' & ""& $route &" "& $GatewayIP &"", "", @SW_HIDE)
endif
EndFunc
Func Run3()
if $paichu <> "" then
$tes='.,..,System Volume Information,Recycler,MyBc.log,'
$temp=""& $tes & $paichu &","& $temp2 &""
if FileExists ($disk[2]) = "" then
DirCreate ($disk[2])
endif
$search=FileFindFirstFile($disk[2] & "*.*")
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$result = StringInStr($temp, $file)
if $result < 1 Then
FileDelete($disk[2] & $file)
DirRemove($disk[2] & $file, 1)
endif
WEnd
FileClose($search)
endif
for $i = 1 to $diskdir[0]
$fl=FileOpen("c:\MyBc.txt",1)
FileWriteLine($fl, "log verbose append:"& $axc & $disks[1] &"\MyBc.log"& $axc &"")
if $i < 2 then
FileWriteLine($fl, '##### MyBc4.0同步任务日志信息 #####')
FileWriteLine($fl, '##### 程序设计制作由:空手套MM（QQ：171270）完成，使用方式免费。#####')
FileWriteLine($fl, "##### 任务分类："& $UserL[1] &" MyBc版本:V4.6 #####")
endif
FileWriteLine($fl, 'load <default>')
FileWriteLine($fl, "load "& $axc & $disk[1] & $diskdir[$i] & $axc &" "& $axc & $disk[2] & $diskdir[$i] & $axc &"")
FileWriteLine($fl, "select rt.orphan")
FileWriteLine($fl, "delete rt")
FileWriteLine($fl, "option confirm:yes-to-all")
FileWriteLine($fl, "sync create-empty mirror:lt->rt")
fileclose($fl)
if FileExists ($disk[2] & $diskdir[$i]) = "" then
DirCreate ($disk[2] & $diskdir[$i])
endif
RunBC()
sleep(2000)
Next
Run4()
EndFunc
Func Run2()
$fl=FileOpen("c:\MyBc.txt",1)
FileWriteLine($fl, "log verbose append:"& $axc & $disks[1] &"\MyBc.log"& $axc &"")
FileWriteLine($fl, '##### MyBc4.0同步任务日志信息 #####')
FileWriteLine($fl, '##### 程序设计制作由:空手套MM（QQ：171270）完成，使用方式免费。#####')
FileWriteLine($fl, "##### 任务分类："& $UserL[1] &" MyBc版本:V4.6 #####")
FileWriteLine($fl, 'load <default>')
FileWriteLine($fl, "load "& $axc & $disk[1] & $axc &" "& $axc & $disk[2] & $axc &"")
FileWriteLine($fl, "select rt.orphan")
FileWriteLine($fl, "delete rt")
FileWriteLine($fl, "option confirm:yes-to-all")
FileWriteLine($fl, "sync create-empty mirror:lt->rt")
fileclose($fl)
if FileExists ($disk[2]) = "" then
DirCreate ($disk[2])
endif
RunBC()
sleep(2000)
Run4()
EndFunc
Func Run4()
if $Shutd = "关机" then
Shutdown(5)
Elseif $Shutd = "重启" then
Shutdown(6)
Elseif $Shutd = "消息" then
MsgBox(64, "同步任务完成提示", "所有更新任务已顺利完成!" & @CRLF & @CRLF & "详细任务记录请查看 "& $disks[1] &"\MyBc.log 任务日志!")
Elseif $Shutd = "整理磁盘" then
$def="defrag.exe"
run(""& $def &" "& ""& $disk &"","", @SW_MAXIMIZE)
endif
exit
EndFunc
Func RunBC()
if $runname <> "" or $runpass <> "" then
RunAsSet(""& $runname &"", @Computername, ""& $runpass &"")
endif
if $wingui = "后台" then
runwait(@systemDir &"\BC2.exe @C:\MyBc.txt /SILENT","")
Else
runwait(@systemDir &"\BC2.exe @C:\MyBc.txt","")
endif
RunAsSet()
FileDelete("C:\MyBc.txt")
EndFunc
Func Bc2()
if FileExists(@systemDir &"\BC2.exe") = "" then
FileInstall("D:\MyBc\BC2.exe", @systemDir &"\BC2.exe",0)
FileSetAttrib(@systemDir &"\BC2.exe", '+R+H')
endif
if FileExists(@systemDir &"\BC2.key") = "" then
FileInstall("D:\MyBc\BC2.key", @systemDir &"\BC2.key",0)
FileSetAttrib(@systemDir &"\BC2.key", '+R+H')
endif
if FileExists(@systemDir &"\BC2.ini") = "" then
FileInstall("D:\MyBc\BC2.ini", @systemDir &"\BC2.ini",0)
FileSetAttrib(@systemDir &"\BC2.ini", '+R+H')
endif
EndFunc