- MSDN/TechNetサブスクリプション 25
399 ：名無し~3.EXE[sage]：2010/10/05(火) 18:21:26 ID:wAZ0vOHB - 俺はvbsで
CONST HKEY_LOCAL_MACHINE = &H80000002
CONST SEARCH_KEY = "DigitalProductID"
Dim arrSubKeys(6,1)
Dim foundKeys
Dim iValues, arrDPID
foundKeys = Array()
iValues = Array()
arrSubKeys(0,0) = "Windows"
arrSubKeys(0,1) = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
arrSubKeys(2,0) = "Office XP"
arrSubKeys(2,1) = "SOFTWARE\Microsoft\Office\10.0\Registration"
arrSubKeys(1,0) = "Office 2003"
arrSubKeys(1,1) = "SOFTWARE\Microsoft\Office\11.0\Registration"
arrSubKeys(3,0) = "Office 2007"
arrSubKeys(3,1) = "SOFTWARE\Microsoft\Office\12.0\Registration"
arrSubKeys(4,0) = "Microsoft Exchange Product Key"
arrSubKeys(4,1) = "SOFTWARE\Microsoft\Exchange\Setup"
arrSubKeys(5,0) = "Office 2003wow"
arrSubKeys(5,1) = "SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration"
arrSubKeys(6,0) = "Office 2007wow"
arrSubKeys(6,1) = "SOFTWARE\Wow6432Node\Microsoft\Office\12.0\Registration"
こんな感じでまとめて配列に読み込んでから処理するようにして使ってるな
|