martyn-k |
16.02.2017 13:33 |
преобразовать vbs в js
как преобразовать в код из VBScript в JavaScript? Этот код позволяет получать список имен системных шрифтов:
const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts"
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames
For each strValueName in arrValueNames
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
wscript.echo strValue & vbTab & vbTab & strValueName
Next
set oReg = Nothing
|