Подскажите, че сделать

шелл = Новый COMОбъект("WScript.Shell");
Значение = шелл.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate");


возвращает 0, а надо что бы возвращало значение которое есть там

в то же время делаю

шелл = Новый COMОбъект("WScript.Shell");
Значение = шелл.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName");

все отлично работает.

заметил что первое имеет значение Reg_SZ, а второе Reg_Dword

вообщем надо получить дату установки винды

(0) да, не в тему, знаю .... зачем дата установки винды ?

(1) проверочку одну делаю, не скажу какую ))

ап апыч

Тебе надо из Hexadecimal в Decimal конвертить в WsScript.

(4) а кусок кода можно привести ?

(5) Ты не поверишь, но у меня не 0, а дату возвращает.

(6) обманывать смысла нету

http://i40.fastpic.ru/big/2012/0917/49/e55db521c3b5bd2deadd5f2bfbc91549.png

(7)
шелл = Новый COMОбъект("WScript.Shell");
Значение = шелл.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate");
Сообщить(Значение);
Дата1 = Дата("19700101000000") + Значение;    
Сообщить(Дата1);


13.12.2011 18:15:17

Дата1    01.01.1970 0:00:00

вот у меня вот так :)

у меня тоже 0; зависит от винды видимо или ещё чего

а какая ось стоит и версия 1с ?

и какой тип значения InstallDate в самом реестре ? у меня  Reg_Dword

Xp SP3, Reg_DWORD, Hexadecimal, 8.2.15.319, проверял на файловой.

у мну 7-ка

32 bit.

на виртуалке запустил XP, проверил код, действительно:

на XP все нормально получает
на Win7 возвращает 0

:(

есть еще какие нибудь варианты получения значения из реестра в 1с

пробывал так
   
Перем Значение; // В эту переменную запишем значение из реестра
   
RegProv=ПолучитьCOMОбъект(
"winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"
);

// Читаем значение ключа StartDate из ветки
// HKEY_CURRENT_USER\Software\1C\1Cv8\Report в переменную Значение
RegProv.GetStringValue("2147483649","HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","InstallDate",Значение);

в значение ничего не записывается

дак на 7-ке путь то другой, не?

(18) тот же самый путь

(18) +тип ключа точно такой же

http://www.autoitscript.com/forum/topic/128213-regread-pb-with-windows-7-64-bits/
I find the solution (but it's not very cool)
It's work if you add Wow6432Node word in your key to read
$return=RegRead("HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{BEWINTERNET-FR-DME}.UninstallSuite","UninstallString")
Вроде эта же проблема, попробуй так же.

шелл = Новый COMОбъект("WScript.Shell");
Значение = шелл.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\{BEWINTERNET-FR-DME}.InstallDate","UninstallString");



описание ошибки возвращает - неверное число параметров

а криво сделал, ща еще попробую

даже если

Значение = шелл.RegRead("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{BEWINTERNET-FR-DME}.UninstallSuite","UninstallString")

все равно таже ошибка

Значение = шелл.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion\InstallDate");

http://support.microsoft.com/kb/256986/ru
Реестр 64-разрядных версий Windows XP и Windows Server 2003 и Windows Vista подразделяется на 32- и 64-разрядные разделы. Большинство 32-разрядных разделов имеют те же имена, что и их аналоги в 64-разрядном разделе, и наоборот. По умолчанию редактор реестра 64-разрядных версий Windows XP и Windows Server 2003 и Windows Vista отображает 32-разрядные разделы в следующем узле:
HKEY_LOCAL_MACHINE\Software\WOW6432Node

в реестре глянул, нету там даты установки вин, есть значения установки ie, некоторых прог, но про винду нету, в том время как если поглядеть в самом реестре, то в HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate

есть сама дата

в 16ичной 504f901b
в 10 1347391515

что собственно и = 11.09.2012 19:25:15

все так и есть

ап апчик

есть еще какие нибудь варианты получения значения из реестра в 1с

(25) пробовал?

(29) да

(29) не работает

(29) возвращает так же 0

(32)
Когда пробуешь, смотри чтобы экземпляр RegEdit не был запущен.
http://support.microsoft.com/kb/305097
У тебя win7 64?

(33)  рег эдит запущен 1

да win7 x64

Перем Значение;
   
RegProv=ПолучитьCOMОбъект(
"winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"
);

RegProv.GetStringValue("2147483649","HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion","InstallDate",Значение);

а вот так если то записывается NULL

(34)
Когда обработку запускаешь закрывай его.
x64 — почитай http://support.microsoft.com/kb/305097

Значение = шелл.RegRead("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate");

(37) описание ошибки возвращает "Неверная ссылка на корень в разделе реестра HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate

думается мне нужно не в этом направлении искать, т.к. в то же время

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName и другие отрабатывают нормально

а вот и прикол

написал скрипт vbs

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

sReg = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate")

MsgBox sReg

возвращает ок

а что мешает через systeminfo  и записывать значение в файл
http://www.diwaxx.ru/win/command-prompt.php

ну или даже так http://itband.ru/2009/11/remote-execution/

(41) записывать в файл, потом цеплять из файла, да и не хочется что то подобное применять, нужно что бы в 1с отрабатывало, без всяких файлов

Еще, как вариант, определить, когда была установлена ОС — это воспользоваться командой wmic. Для этого необходимо ввести в командной строке команду wmic os get installdate.


После ввода команды на экране отобразится дата установки операционной системы. Чтобы привести ее в более понятный вид можно с помощью команды PowerShell.

PS C:\; ([WMI]'').ConvertToDateTime((Get-WmiObject Win32_OperatingSystem).InstallDate)

Так же узнать дату установки Windows можно с помощью реестра. Для этого в реестре нужно найти ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion и далее найти параметр REG_DWORD с именем InstallDate.



Так как данные хранятся в Hex коде его также нужно преобразовать при помощи команды PowerShell.

PS C:\> [timezone]::CurrentTimeZone.ToLocalTime(([datetime]'1/1/1970').AddSeconds ($(get-itemproperty 'HKLM:\Software\Microsoft\Windows NT\CurrentVersion').InstallDate))

http://av5.com/journals-magazines-online/1/13/108

оно ?

(46) изучаю, думаю как это дело в 1с затолкать

http://ss64.com/ps/get-wmiobject-win32.html

покажешь решение. :)

(48) как я понял, можно формировать из 1с скрипт и юзать его. Так не вариант, надо что бы без файла )

(49) как разберусь, покажу конечно )

так там можно и без файла. получай через объект значение и конвертируй его.
([WMI]'').ConvertToDateTime((Get-WmiObject Win32_OperatingSystem).InstallDate)
что то такое. думаю разберешься до конца сам.

(50)
и все довольно просто

   strComputer = ".";

   objWMIService = ПолучитьCOMОбъект("winmgmts:\\" + strComputer + "\root\cimv2");

  objOS =objWMIService.ExecQuery("Select * from Win32_OperatingSystem");
 
  Для каждого strOS Из objOS Цикл
       dtmInstallDate = strOS.InstallDate;
         Сообщить(dtmInstallDate);
       Дата =  Сред(dtmInstallDate, 5, 2) + "/" + Сред(dtmInstallDate, 7, 2) + "/"+ Лев(dtmInstallDate, 4) + " " + Сред (dtmInstallDate, 9, 2) + ":"+ Сред(dtmInstallDate, 11, 2) + ":" + Сред(dtmInstallDate, 13, 2);
       Сообщить(Дата);
  КонецЦикла;

(52) и вправду)) спасибище )) все ок работает, а я тут кручу верчу.. )

спасиб всем кто помогал


п.с.

кстате, еще прикол

   // ИмяСкрипта = ПолучитьИмяВременногоФайла(".vbs");
   //Скрипт = Новый ЗаписьТекста(ИмяСкрипта, КодировкаТекста.ANSI);
   //Скрипт.ЗаписатьСтроку("Dim WshShell");

   //Скрипт.ЗаписатьСтроку("Set WshShell = CreateObject(""WScript.Shell"")");
   //Скрипт.ЗаписатьСтроку("sReg = WshShell.RegRead(""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\InstallDate"")");
   //Скрипт.ЗаписатьСтроку("MsgBox sReg");
   //Скрипт.Закрыть();
   //ЗапуститьПриложение(ИмяСкрипта);

выдает 0 !!!!!!!!!!!!!!

в то же время если его запустить из темпов ручками всё ок..
чудеса

вот так будет правильней )

   strComputer = ".";

  objWMIService = ПолучитьCOMОбъект("winmgmts:\\" + strComputer + "\root\cimv2");

  objOS =objWMIService.ExecQuery("Select * from Win32_OperatingSystem");
 
  Для каждого strOS Из objOS Цикл
       dtmInstallDate = strOS.InstallDate;
      // Сообщить(dtmInstallDate);
      // Дата =  Сред(dtmInstallDate, 5, 2) + "/" + Сред(dtmInstallDate, 7, 2) + "/"+ Лев(dtmInstallDate, 4) + " " + Сред (dtmInstallDate, 9, 2) + ":"+ Сред(dtmInstallDate, 11, 2) + ":" + Сред(dtmInstallDate, 13, 2);
       ДатаИнсталОС = Дата(Лев(dtmInstallDate,Найти(dtmInstallDate,".")-1));
       //Сообщить(Дата);
  КонецЦикла;