Результаты поиска по запросу: *

  1. kick

    Узнаём информация о Windows

    Set WshShell = CreateObject("WScript.Shell") regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId") Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine Win8ProductID = "Windows...
  2. kick

    Узнаём информация о Windows

    Что бы вывести просто кей, если так мешает то сделать вот так: Set WshShell = CreateObject("WScript.Shell") regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId") Win8ProductName = "Windows Product Name: " &...
  3. kick

    Узнаём информация о Windows

    При помощи VBS мы пишем скрипт, который позволит нам вывести информацию о нашей системе и ключе: Set WshShell = CreateObject("WScript.Shell") regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId") Win8ProductName = "Windows...
Назад
Сверху Снизу