1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
' actualizaciones automáticas de la neutralización IEPRO7 Fijar el objShell = CreateObject (“WScript.Shell”) Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”) strRegFileIE7PRO = “\ \ dc1 \ SYSVOL \ dominio. Local \ escrituras \ conf.ini” strFileIEPRO= “C:\Program Files\IEPro\IEProCx.exe” strAppData = objShell.ExpandEnvironmentStrings (“%APPDATA%") strCheckFileIEPRO = strAppData y “\ IEPRO7updatesdisabled.dat” Si objFSO.FileExists (strFileIEPRO) entonces Si objFSO.FileExists (strCheckFileIEPRO) = falso entonces \ \ dc1 \ SYSVOL \ dominio de objFSO.CopyFile “. Local \ escrituras \ conf.ini”, “datos de C:\Documents and Settings\testuser\Application \ IEPro” objFile determinado = objFSO.CreateTextFile (strCheckFileIEPRO, verdades) objFile.Close Terminar si