1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
' уточнение disable IEPRO7 автоматическое Установите objShell = CreateObject («WScript.Shell») Установите objFSO = CreateObject («Scripting.FileSystemObject») strRegFileIE7PRO = «\ \ dc1 \ SYSVOL \ домен. Local \ сценарии \ conf.ini» strFileIEPRO= «C:\Program Files\IEPro\IEProCx.exe» strAppData = objShell.ExpandEnvironmentStrings («%APPDATA%") strCheckFileIEPRO = strAppData & «\ IEPRO7updatesdisabled.dat» Если objFSO.FileExists (strFileIEPRO) после этого Если objFSO.FileExists (strCheckFileIEPRO) = ложно после этого \ objFSO.CopyFile «\ dc1 \ SYSVOL \ домен. Local \ сценарии \ conf.ini», «данные по C:\Documents and Settings\testuser\Application \ IEPro» Установленное objFile = objFSO.CreateTextFile (strCheckFileIEPRO, поистине) objFile.Close Закончитесь если