dev.vbs 代码如下: On Error Resume Next Set aArgs=WScript.Arguments if aArgs.Count=0 Then MsgBox "请运行 DevBackup.Cmd 开始备份驱动! ",64,"BY: fastslz":Wscript.Quit Set Fso = CreateObject("Scripting.FileSystemObject") Set aNet = CreateObject("Wscript.Network") strComputer = aNet.ComputerName:aUser = aNet.UserName:aErr = "0" Set aGroup = GetObject("WinNT://" & strComputer & "/Administrators")