By Request Script To Open And Edit The Boot Ini File

 

Vbs Script:

 

Set Fso = CreateObject("Scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")

Set drives = Fso.Drives

iIniCount = 0

 

For Each Drive In Drives

If Fso.FileExists(Drive.DriveLetter&":\Boot.Ini") Then

WshShell.Run "Attrib "& Drive.DriveLetter & ":\Boot.Ini -R -H", 0, False

WshShell.Run "Notepad.Exe " & Drive.DriveLetter & ":\Boot.Ini"

iIniCount = iIniCount + 1

End If

 

WshShell.Run "Attrib "& Drive.DriveLetter & ":\Boot.Ini +R +H", 0, True

Next

 

Published Sunday, September 24, 2006 7:29 AM by dhite
Filed under:

Comments

No Comments