fereria
1/14/2015 - 2:32 PM

saveTxt_SubDir

saveTxt_SubDir

## -*- coding: utf-8 -*-
"""
インストールされているアプリケーションのリストをテキストに書き出し
"""
import _winreg
import re
import codecs
import os.path
import sys
import os

key     = _winreg.OpenKey(_winreg.HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall")
regInfo = _winreg.QueryInfoKey(key)

pathThisFile  = os.path.dirname(os.path.abspath(sys.argv[0]))
textSaveDir   = pathThisFile + "/pcInstallInfo"
if os.path.exists(textSaveDir) != True:
    os.makedirs(textSaveDir)

item = []
for i in range(regInfo[0]):

    installName = _winreg.EnumKey(key,i)
    try:
        subKey      = _winreg.OpenKey(key,installName)
        item.append(_winreg.QueryValueEx(subKey,"DisplayName")[0])
    except:
        pass

with codecs.open(textSaveDir + "/" + os.getenv("computername") + "_AppInstallInfo.txt",'w','cp932') as f:
    for i in item:
        f.write(i+"\n")