|
发表于 2010-5-27 17:45:51
|
显示全部楼层
Local $user_dir = "liangxm"
Local $dir = "\\stserver\share\everyone\"&$user_dir
Local $user_file = @ComputerName & "_" & @UserName
Local $user_dir_file = $dir & "\" & $user_file
$key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
For $i= 1 to 500
;$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", $i)
$var = RegEnumKey($key, $i)
If @error <> 0 then ExitLoop
$j = $i
$k = $var
$key_value = $key & $var
$var2 = RegRead($key_value, "DisplayName")
;MsgBox(0, "SubKey #" & $i & " under HKLM\Software: ", $var& ":" & $var2)
_FileWriteLog($user_dir_file,$i & @TAB & $var & @TAB & $var2 & @TAB & @UserName,0)
;If @error <> 0 then ExitLoop
Next |
|