大虾们，给我点思路！

feiyunkai

'获取注册表项下所有键名称、类型、值，并写入TXT文档
'以获取HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer下所有键的名称、类型、数据为例。
FileWrite "D:\folder1\file2.txt",GetAllkey(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Internet Explorer")

Function GetAllkey(intRoot,strKeyPath)  
'函数名称：FileWrite "D:\folder1\file2.txt","写入这些字符"
'函数作用：向指定路径的文件写入数据并保存
'参数：GetAllkey（文件所在路径），words（写入文件的字符）
'示例：GetAllkey HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Internet Explorer"
HKEY_LOCAL_MACHINE=&H80000002  
HKEY_CURRENT_USER=&H80000001
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")  
oReg.EnumValues intRoot,strKeyPath,arrValueNames,arrValueTypes  
For i=0 To UBound(arrValueNames)  
        oReg.GetStringValue intRoot, strKeyPath,arrValueNames(i),strvalue  
        Select Case arrValueTypes(i)
        Case 1
                        typereturn="REG_SZ"
        Case 2
                        typereturn="REG_EXPAND_SZ"
        Case 3
                        typereturn="REG_BINARY"
        Case 4
                        typereturn="REG_DWORD"
        Case 7
                        typereturn="REG_MULTI_SZ"
End Select
GetAllkey=GetAllkey&arrValueNames(i)&", "&typereturn&","&strvalue &vbCrLf  
Next
End Function

Public Function FileWrite(pathway,words)
'函数名称：FileWrite "D:\folder1\file2.txt","写入这些字符"
'函数作用：向指定路径的文件写入数据并保存
'参数：pathway（文件所在路径），words（写入文件的字符）
'示例：FileWrite "D:\folder1\file2.txt","写入这些字符"
set fileSystemObj = CreateObject("Scripting.FileSystemObject")
        If fileSystemObj.FileExists(pathway) then
                Set logFile = fileSystemObj.OpenTextFile(pathway, 2, true)
                logFile.WriteLine words
                logFile.Close
        Else
                msgbox "该文件不存在"
        End If
Set logFile = Nothing
End Function

[ 本帖最后由 feiyunkai 于 2010-5-7 14:54 编辑 ]