用VBScript读写INI配置文件（比较不错的代码）http://www.robvanderwoude.com/vbstech_files_ini.php

ReadINI
VBScript Code:
Function ReadIni( myFilePath, mySection, myKey )     ' This function returns a value read from an INI file     '     ' Arguments:     ' myFilePath  [string]  the (path and) file name of the INI file     ' mySection   [string]  the section in the INI file to be searched     ' myKey       [string]  the key whose value is to be returned     '     ' Returns:     ' the [string] value for the specified key in the specified section     '     ' CAVEAT:     Will return a space if key exists but value is blank     '     ' Written by Keith Lacelle     ' Modified by Denis St-Pierre and Rob van der Woude     Const ForReading   = 1     Const ForWriting   = 2     Const ForAppending = 8     Dim intEqualPos     Dim objFSO, objIniFile     Dim strFilePath, strKey, strLeftString, strLine, strSection     Set objFSO = CreateObject( "Scripting.FileSystemObject" )     ReadIni     = ""     strFilePath = Trim( myFilePath )     strSection  = Trim( mySection )     strKey      = Trim( myKey )     If objFSO.FileExists( strFilePath ) Then         Set objIniFile = objFSO.OpenTextFile( strFilePath, ForReading, False )         Do While objIniFile.AtEndOfStream = False             strLine = Trim( objIniFile.ReadLine )             ' Check if section is found in the current line             If LCase( strLine ) = "[" & LCase( strSection ) & "]" Then                 strLine = Trim( objIniFile.ReadLine )                 ' Parse lines until the next section is reached                 Do While Left( strLine, 1 ) <> "["                     ' Find position of equal sign in the line                     intEqualPos = InStr( 1, strLine, "=", 1 )                     If intEqualPos > 0 Then                         strLeftString = Trim( Left( strLine, intEqualPos - 1 ) )                         ' Check if item is found in the current line                         If LCase( strLeftString ) = LCase( strKey ) Then                             ReadIni = Trim( Mid( strLine, intEqualPos + 1 ) )                             ' In case the item exists but value is blank                             If ReadIni = "" Then                                 ReadIni = " "                             End If                             ' Abort loop when item is found                             Exit Do                         End If                     End If                     ' Abort if the end of the INI file is reached                     If objIniFile.AtEndOfStream Then Exit Do                     ' Continue with next line                     strLine = Trim( objIniFile.ReadLine )                 Loop             Exit Do             End If         Loop         objIniFile.Close     Else         WScript.Echo strFilePath & " doesn't exists. Exiting..."         Wscript.Quit 1     End If End Function
WriteINI
VBScript Code:
Sub WriteIni( myFilePath, mySection, myKey, myValue )     ' This subroutine writes a value to an INI file     '     ' Arguments:     ' myFilePath  [string]  the (path and) file name of the INI file     ' mySection   [string]  the section in the INI file to be searched     ' myKey       [string]  the key whose value is to be written     ' myValue     [string]  the value to be written (myKey will be     '                       deleted if myValue is <DELETE_THIS_VALUE>)     '     ' Returns:     ' N/A     '     ' CAVEAT:     WriteIni function needs ReadIni function to run     '     ' Written by Keith Lacelle     ' Modified by Denis St-Pierre, Johan Pol and Rob van der Woude     Const ForReading   = 1     Const ForWriting   = 2     Const ForAppending = 8     Dim blnInSection, blnKeyExists, blnSectionExists, blnWritten     Dim intEqualPos     Dim objFSO, objNewIni, objOrgIni, wshShell     Dim strFilePath, strFolderPath, strKey, strLeftString     Dim strLine, strSection, strTempDir, strTempFile, strValue     strFilePath = Trim( myFilePath )     strSection  = Trim( mySection )     strKey      = Trim( myKey )     strValue    = Trim( myValue )     Set objFSO   = CreateObject( "Scripting.FileSystemObject" )     Set wshShell = CreateObject( "WScript.Shell" )     strTempDir  = wshShell.ExpandEnvironmentStrings( "%TEMP%" )     strTempFile = objFSO.BuildPath( strTempDir, objFSO.GetTempName )     Set objOrgIni = objFSO.OpenTextFile( strFilePath, ForReading, True )     Set objNewIni = objFSO.CreateTextFile( strTempFile, False, False )     blnInSection     = False     blnSectionExists = False     ' Check if the specified key already exists     blnKeyExists     = ( ReadIni( strFilePath, strSection, strKey ) <> "" )     blnWritten       = False     ' Check if path to INI file exists, quit if not     strFolderPath = Mid( strFilePath, 1, InStrRev( strFilePath, "\" ) )     If Not objFSO.FolderExists ( strFolderPath ) Then         WScript.Echo "Error: WriteIni failed, folder path (" _                    & strFolderPath & ") to ini file " _                    & strFilePath & " not found!"         Set objOrgIni = Nothing         Set objNewIni = Nothing         Set objFSO    = Nothing         WScript.Quit 1     End If     While objOrgIni.AtEndOfStream = False         strLine = Trim( objOrgIni.ReadLine )         If blnWritten = False Then             If LCase( strLine ) = "[" & LCase( strSection ) & "]" Then                 blnSectionExists = True                 blnInSection = True             ElseIf InStr( strLine, "[" ) = 1 Then                 blnInSection = False             End If         End If         If blnInSection Then             If blnKeyExists Then                 intEqualPos = InStr( 1, strLine, "=", vbTextCompare )                 If intEqualPos > 0 Then                     strLeftString = Trim( Left( strLine, intEqualPos - 1 ) )                     If LCase( strLeftString ) = LCase( strKey ) Then                         ' Only write the key if the value isn't empty                         ' Modification by Johan Pol                         If strValue <> "<DELETE_THIS_VALUE>" Then                             objNewIni.WriteLine strKey & "=" & strValue                         End If                         blnWritten   = True                         blnInSection = False                     End If                 End If                 If Not blnWritten Then                     objNewIni.WriteLine strLine                 End If             Else                 objNewIni.WriteLine strLine                     ' Only write the key if the value isn't empty                     ' Modification by Johan Pol                     If strValue <> "<DELETE_THIS_VALUE>" Then                         objNewIni.WriteLine strKey & "=" & strValue                     End If                 blnWritten   = True                 blnInSection = False             End If         Else             objNewIni.WriteLine strLine         End If     Wend     If blnSectionExists = False Then ' section doesn't exist         objNewIni.WriteLine         objNewIni.WriteLine "[" & strSection & "]"             ' Only write the key if the value isn't empty             ' Modification by Johan Pol             If strValue <> "<DELETE_THIS_VALUE>" Then                 objNewIni.WriteLine strKey & "=" & strValue             End If     End If     objOrgIni.Close     objNewIni.Close     ' Delete old INI file     objFSO.DeleteFile strFilePath, True     ' Rename new INI file     objFSO.MoveFile strTempFile, strFilePath     Set objOrgIni = Nothing     Set objNewIni = Nothing     Set objFSO    = Nothing     Set wshShell  = Nothing End Sub
DeleteINI
To delete a key in an INI file, use WriteINI with a value "<DELETE_THIS_VALUE>".
Sample Script
VBScript Code:
WriteIni "C:\test.ini", "TEST1", "My1stKey", "My1stValue" WriteIni "C:\test.ini", "TEST2", "My1stKey", "My1stValue" WScript.Echo ReadIni( "C:\test.ini", "TEST1", "My1stKey" ) WriteIni "C:\test.ini", "TEST1", "My1stKey", "My2ndValue" WScript.Echo ReadIni( "C:\test.ini", "TEST1", "My1stKey" )
Sample Output:
My1stValue My2ndValue