vbs腳本實現(xiàn)修改DNS和清空IE臨時文件功能

rem programed by Kaisir
@echo off
echo 本腳本的作用為修改您的DNS為山東青年政治學院專用DNS 222.194.76.2 同時幫您清除了電腦中的臨時文件。若有疑問，請致電網絡中心。
pause
echo 修改DNS中...
netsh interface ip set dns "本地連接" source=static addr=222.194.76.2
echo DNS已經修改成功，接下來將開始清空ie臨時文件...
pause
echo 清除臨時文件中...
del /f /s /q "%userprofile%Local SettingsTemporary Internet Files*.*"
del /f /s /q "%userprofile%AppDataLocalMicrosoftWindowsTemporary Internet Files*.*"
echo 全部操作已成功完成！感謝您的使用。
pause

'刪除目錄下的所有文件及文件夾
 Const DeleteReadOnly = True
 Set objFSO = CreateObject("Scripting.FileSystemObject")
  objFSO.DeleteFile(net_temp"*.*"), DeleteReadOnly
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" strComputer "rootcimv2")
 Set colSubfolders2 = objWMIService.ExecQuery _
        ("Associators of {Win32_Directory.Name='" net_temp "'} " _
            "Where AssocClass = Win32_Subdirectory " _
                "ResultRole = PartComponent")

    For Each objFolder2 in colSubfolders2
        objFSO.deleteFolder objFolder2.name , DeleteReadOnly
    Next
 MsgBox("所有操作已成功執(zhí)行!")
else
end if