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") For Each aUsers in aGroup.Members If aUsers.Name = aUser Then aErr= "1" Next Set WMI = GetObject("winmgmts://" & strComputer & "/root/cimv2") Set aItems = WMI.ExecQuery("Select * from Win32_PnPSignedDriver") If aErr = 0 Then MsgBox "本程序必須以系統管理員身份運行 ",4160,"提示":Wscript.Echo "1":Wscript.Quit if aItems.Count=0 Then MsgBox "WMI 組件運行庫出錯,WinXP精簡版Win2000系統會出現此狀況 ",4160,"提示":Wscript.Echo "2":Wscript.Quit Path = Left(Wscript.ScriptFullName,Len(Wscript.ScriptFullName)-Len(Wscript.ScriptName)) BakPath = Path&"Drivers/" If Fso.FolderExists(BakPath)=False Then Fso.CreateFolder(BakPath)