![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n \n
Hey, Scripting Guy! Can I edit.INI files using a script? Hey, MZ. Yes, you can<\/I> edit .INI files (or any kind of text files, for that matter) using a script. The method you have to use might not be the most elegant process in the world, but it\u2019ll work. And that\u2019s all we really care about, right?<\/P>\n Before we get into the whys and wherefores of editing .INI files, let\u2019s take a look at a sample file. This happens to be a section of the .INI file for Adobe Reader, although most .INI files will look similar:<\/P> Suppose we want to do two things to this file: we want to change DisplayWelcomeDlg<\/B> to NO, and we want to set the UserName<\/B> to Ken Myer. Ideally, we\u2019d write a script that would simply search the file for DisplayWelcomeDlg and change the assigned value to NO, search for the UserName property and set the value to Ken Myer, and then save the changes. Unfortunately, the FileSystemObject – the technology we need to use to read and modify text files – doesn\u2019t have those capabilities. Instead, we\u2019ll have to edit the .INI file by brute force. That probably doesn\u2019t make much sense to you at the moment, but hopefully you\u2019ll understand what we mean by the time you reach the end of this column.<\/P>\n Let\u2019s show you the completed script, and then we\u2019ll explain how it works:<\/P> Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nSet objTextFile = objFSO.OpenTextFile(“sample.ini”, ForReading)<\/p>\n Do Until objTextFile.AtEndOfStream\n strNextLine = objTextFile.Readline<\/p>\n intLineFinder = InStr(strNextLine, “DisplayWelcomeDlg”)\n If intLineFinder <> 0 Then\n strNextLine = “DisplayWelcomeDlg=NO”\n End If<\/p>\n intLineFinder = InStr(strNextLine, “UserName”)\n If intLineFinder <> 0 Then\n strNextLine = “UserName=Ken Myer”\n End If<\/p>\n strNewFile = strNewFile & strNextLine & vbCrLf\nLoop<\/p>\n objTextFile.Close<\/p>\n Set objTextFile = objFSO.OpenTextFile(“sample.ini”, ForWriting)<\/p>\n objTextFile.WriteLine strNewFile\nobjTextFile.Close\n<\/PRE>\n We start off by defining two constants: ForReading and ForWriting. These two constants will be required when we read and write to the .INI file. Note that there isn\u2019t a constant called ForEditing; that\u2019s because the FileSystemObject doesn\u2019t allow you to both read and write a file at the same time. Instead, we\u2019ll have to open the file and read it, then we\u2019ll have to close the file and re-open it for writing. At that point, we\u2019ll be able to save our changes. Like we said, it\u2019s not the most elegant system ever devised, but, hey, it is what it is.<\/P>\n After defining the two constants we open our .INI file (sample.ini) for reading. We then set up a Do loop in which we\u2019ll read the file line-by-line, until there is nothing left to read (when the AtEdnOfStream property is TRUE). We start by using the Readline method to read the first line of the file, and store that line in the variable strNextLine.<\/P>\n Now the fun begins. As we noted earlier, the FileSystemObject doesn\u2019t really allow you to search a file; instead, we have to read the file line-by-line, then individually check each line to see if it happens to be of interest. That\u2019s exactly what we\u2019re doing with this line of code:<\/P> This code uses the InStr method to see if the string DisplayWelcomeDlg<\/B> can be found anywhere within the variable strNextLine (and, remember, this variable contains the .INI line we just read in). InStr works by reporting the character position at which the target string is found. For example, suppose strNextLine equaled this:<\/P> In that case, InStr would return a 6, because our target string starts at the sixth position (we have 5 x\u2019s, then we have DisplayWelcomeDlg). If the target string can\u2019t be found, then InStr returns a 0. <\/P>\n And that\u2019s exactly what happens when we read the first line of the .INI file. Because the first line in the file is [OEM Install]<\/B>, InStr returns a 0. Consequently, we skip our first If-Then statement, and continue on. We then check to see if UserName<\/B> can be found anywhere in the variable. Again, InStr returns a 0, so we skip the second If-Then statement as well.<\/P>\n This is what we mean by editing the file using brute force: we\u2019re checking each and every line of the file for each of our test conditions. Suppose we wanted to modify the DisplayUserInfoDlg<\/B> property, too. Well, then we\u2019d have to add a third<\/I> test condition, one similar to this:<\/P> Got that? We\u2019ve now checked the first line of the .INI file, and it isn\u2019t a line of interest. So do we just discard it and move on? Nope, not quite. Instead, we use this line of code:<\/P> What this code does is construct a brand-new .INI file in memory, storing this new file in the variable strNewFile. The first time we run through the loop, strNewFile will consist of everything currently in strNewFile (which is nothing the first time through) plus<\/I> whatever happens to be in the variable strNextLine ([OEM Install]) plus<\/I> a carriage return linefeed (vbCrLf). In other words, after one iteration strNewFile looks like this:<\/P> Exciting, isn\u2019t it?<\/P>\n Now we loop around and read the second line in the text file (DisplayWelcomeDlg=YES). And guess what: this time InStr finds<\/I> the target string, and the variable intLineFinder will equal 1 (because DisplayWelcomeDlg begins in the first character position). Because intLineFinder does not equal 0, we now enter our first If-Then block. Inside that block, we simply change the value of strNewLine:<\/P> Now our variable doesn\u2019t contain the text we read in from the .INI file; instead, it contains this modified text:<\/P> In other words, we didn\u2019t really edit the value of the DisplayWelcomeDlg property. Instead, we simply threw out the old line and replaced it with a brand-new line. However, the end result is no different than it would have been had we\u2019d been able to edit the property value directly.<\/P>\n When we get to the end of the loop, the variable strNewFile will now look like this:<\/P> See how this works? We\u2019ll keep reading through the .INI file line-by-line, and we\u2019ll keep constructing the variable strNewFile line-by-line as well. By the time the script is finished, strNewFile will contain this information:<\/P> And, yes, that is<\/I> exactly the same information we want in our modified .INI file.<\/P>\n We\u2019re on our way now. We next close the file sample.ini, then immediately reopen it for writing<\/I> (silly, but that\u2019s what we have to do). We then use this single line of code to replace the existing text in sample.ini with the information stored in the variable strNewFile:<\/P> When we close the file again, the data will be saved, and we will have successfully modified our .INI file.<\/P>\n Now, we don\u2019t claim this is the coolest piece of code ever written; it\u2019s not. And there might very well be .INI files where this doesn\u2019t work. But the truth is, it\u2019s probably the best you\u2019re going to be able to do, at least with the tools built into the operating system.<\/P>
— MZ<\/P>![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n[OEM Install]\nDisplayWelcomeDlg=YES\nDisplayEULA=NO\nDisplayTypeOfInstallDlg=NO\nDisplaySelectDestDirDlg=YES\nDisplayCustomDlg=NO\nDisplayUserInfoDlg=NO\nDisplayConfirmRegDlg=NO\nDisplayStartCopyDlg=NO\nDisplayFinishDlg=NO\nDisplayFinalMessage=YES\nDisplayRebootDlg=YES\nProgGroupName=\nDefaultDestDir=\nUserName=\nUserCompanyName=\nUserSerialNumber=\n<\/PRE>\n
Const ForReading = 1\nConst ForWriting = 2<\/p>\n
intLineFinder = InStr(strNextLine, “DisplayWelcomeDlg”)\n<\/PRE>\n
xxxxxDisplayWelcomeDlgxxxxx\n<\/PRE>\n
intLineFinder = InStr(strNextLine, “DisplayUserInfoDlg”)\n<\/PRE>\n
strNewFile = strNewFile & strNextLine & vbCrLf\n<\/PRE>\n
[OEM Install]\n<\/PRE>\n
strNextLine = “DisplayWelcomeDlg=NO”\n<\/PRE>\n
DisplayWelcomeDlg=NO\n<\/PRE>\n
[OEM Install]\nDisplayWelcomeDlg=NO\n<\/PRE>\n
[OEM Install]\nDisplayWelcomeDlg=NO\nDisplayEULA=NO\nDisplayTypeOfInstallDlg=NO\nDisplaySelectDestDirDlg=YES\nDisplayCustomDlg=NO\nDisplayUserInfoDlg=NO\nDisplayConfirmRegDlg=NO\nDisplayStartCopyDlg=NO\nDisplayFinishDlg=NO\nDisplayFinalMessage=YES\nDisplayRebootDlg=YES\nProgGroupName=\nDefaultDestDir=\nUserName=Ken Myer\nUserCompanyName=\nUserSerialNumber=\n<\/PRE>\n
objTextFile.WriteLine strNewFile\n<\/PRE>\n
\n\n
![\"Top](\"http:\/\/www.microsoft.com\/technet\/mnplibrary\/templates\/MNP2.Common\/images\/arrow_px_up.gif\"){kind=icon}
<\/A>