8,452
edits
Mod Tool/Scripting: Difference between revisions
m
read registry
Paradox-01 (talk | contribs) mNo edit summary |
Paradox-01 (talk | contribs) m (read registry) |
||
| Line 13: | Line 13: | ||
logmessage "64" | logmessage "64" | ||
end if | end if | ||
===read registry=== | |||
Mod Tool fails to do this properly. So the code must be compiled in *.exe files? (64-bit/32-bit) | |||
Set WshShell = CreateObject("WScript.Shell") | |||
AE_path = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{B67333BB-1CF9-4EFD-A40B-E25B5CB4C8A7}}_is1\InstallLocation") | |||
MsgBox AE_path | |||
Dim fso | |||
Set fso = CreateObject ("Scripting.FileSystemObject") | |||
txt_location = fso.GetAbsolutePathName(".") & "\AE_path.txt" | |||
Set wText = fso.CreateTextFile (txt_location, 1) | |||
wText.WriteLine AE_path | |||
wText.Close | |||