1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
' atualizações automáticas da inutilização IEPRO7 Ajustar o objShell = o CreateObject (“WScript.Shell”) Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”) strRegFileIE7PRO = “\ \ dc1 \ SYSVOL \ domínio. Local \ certificados \ conf.ini” strFileIEPRO= “C:\Program Files\IEPro\IEProCx.exe” strAppData = objShell.ExpandEnvironmentStrings (“%APPDATA%") strCheckFileIEPRO = strAppData & “\ IEPRO7updatesdisabled.dat” Se objFSO.FileExists (strFileIEPRO) então Se objFSO.FileExists (strCheckFileIEPRO) = falso então \ de objFSO.CopyFile “\ dc1 \ SYSVOL \ domínio. Local \ certificados \ conf.ini”, “dados de C:\Documents and Settings\testuser\Application \ IEPro” objFile ajustado = objFSO.CreateTextFile (strCheckFileIEPRO, verdadeiros) objFile.Close Terminar se