DNSを変更し、IEの一時ファイルを空にするvbsスクリプト

rem programed by Kaisir
@echo off
echo The purpose of this script is to change your DNS to 222.194.76.2 for Shandong Youth Politics College and to clear the temporary files in your computer. If you have any questions, please call the Network Center.
pause
echo Modify DNS in...
netsh interface ip set dns "local connection" source=static addr=222.194.76.2
echo DNS has been modified successfully, next we will start emptying the ie temporary files...
pause
echo Clear the temporary file in...
del /f /s /q "%userprofile%Local SettingsTemporary Internet Files*. *"
del /f /s /q "%userprofile%AppDataLocalMicrosoftWindowsTemporary Internet Files*. *"
echo All operations have been successfully completed! Thank you for your use.
pause

'Delete all files and folders in the directory
 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("All operations have been successfully executed! ")
else
end if