1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: WSH: определение даты установки операционной системы

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "CompName"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    dtmConvertedDate.Value = objOperatingSystem.InstallDate 
    dtmInstallDate = dtmConvertedDate.GetVarDate
    Wscript.Echo "Install Date: " & dtmInstallDate
Next

Данный скрипт можно считать дополнением к статье Рецепты WMI: сбор сведений о конфигурации операционной системы и установленном программном обеспечении. Объект "WbemScripting.SWbemDateTime" применяется для приведения даты в удобочитаемый вид.
P.S. Скрипт прислал MoonRabbit.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

2 Ответ от greg zakharov

  • greg zakharov
  • Гость

Re: WSH: определение даты установки операционной системы

Альтернативный вариант:

with (new ActiveXObject('WScript.Shell')) {
  var raw = RegRead('HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\InstallDate');
  with (new Date(1970, 0, 1)) {
    WScript.echo(new Date(setSeconds(getSeconds() + raw)));
  }
}

3 Ответ от Rumata

  • Rumata
  • Разработчик
  • Неактивен

Re: WSH: определение даты установки операционной системы

...
new Date(raw * 1000)
( 2 * b ) || ! ( 2 * b )