1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
' IEPRO7 maakt automatische updates onbruikbaar Reeks objShell = CreateObject („WScript.Shell“) Reeks objFSO = CreateObject („Scripting.FileSystemObject“) strRegFileIE7PRO = „\ \ dc1 \ domein SYSVOL \. Lokale \ manuscripten \ conf.ini“ strFileIEPRO= „C:\Program Files\IEPro\IEProCx.exe“ strAppData = objShell.ExpandEnvironmentStrings („%APPDATA%“) strCheckFileIEPRO = strAppData & „\ IEPRO7updatesdisabled.dat“ Als objFSO.FileExists (strFileIEPRO) toen Als objFSO.FileExists (strCheckFileIEPRO) = Vals toen objFSO.CopyFile „\ \ dc1 \ domein SYSVOL \. Lokale \ manuscripten \ conf.ini“, „C:\Documents and Settings\testuser\Application Gegevens \ IEPro“ Vastgestelde objFile = objFSO.CreateTextFile (strCheckFileIEPRO, Waar) objFile.Close Eind als