mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
389 B
12 lines
389 B
REM VBScript Test Custom Action
|
|
|
|
Const hkClassesRoot = 0
|
|
Const hkCurrentUser = 1
|
|
Const hkLocalMachine = 2
|
|
|
|
MsgBox "ProductCode = " & Session.Property("ProductCode") & " Language = " & Session.Language
|
|
|
|
Function Action1
|
|
MsgBox "Processor Speed = " & Session.Installer.RegistryValue(hkLocalMachine, "HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
|
|
Action1 = 1
|
|
End Function
|