Как сгенерировать GUID в 7.7, в WSH пока ничего не нашел, подскажите. ВК не хочу использовать.

up

Книга знаний: Получение GUID в 1С

If you are on Windows, you can use the simple VBScript below to generate a UUID. Just save the code to a file called createguid.vbs, and then run cscript createguid.vbs at a command prompt.


Set TypeLib = CreateObject("Scriptlet.TypeLib")
NewGUID = TypeLib.Guid
WScript.Echo(left(NewGUID, len(NewGUID)-2))
Set TypeLib = Nothing


If you have the Microsoft SDK installed on your system, you can use the utility uuidgen.exe, which is located in the "C:\Program Files\Microsoft SDK\Bin" directory.

Спасибо!



Функция СоздатьGUID()
   TypeLib = CreateObject("Scriptlet.TypeLib");
   NewGUID = TypeLib.Guid();
   TypeLib = "";
   Возврат NewGUID;
КонецФункции    


//*******************************************
Процедура Сформировать()
   g=СоздатьGUID();
   Сообщить("Создан GUID: "+g);
КонецПроцедуры



Инфо = СоздатьОбъект(''AddIn.V7SysInfo'');
ГлобальноУникальныйИдентификатор = Инфо.СоздатьGUID();


Дополнил я статью.

(6)А можно ли из коммандлайн windows получить? Желательно без внешних exe?

(9) Тебе же не командные файлы писать, скрипт vbs или js удобнее.
А там см. (4).

(10)Именно в cmd нужно. Или как в (4) сделать тихий вывод в поток?

(11) хочешь имя файла для бэкапа получить?

(12)Не совсем(в бэкап я дату сую), ну типа того. Нужно большое и длинное слово.

(11) можно при помощи команды

cmd.exe /c cscript.exe script_get_GUID.vbs


выполнить такой скрипт

   TypeLib = CreateObject("Scriptlet.TypeLib");
   WScript.StdOut.Write(TypeLib.Guid());


не проверял, просто подумалось чо-та

(13) В rar.exe есть ключ -ag, он генерит имя файла архива на основе даты-времени.
Нетрудно и свою прогу или скрипт, которые это делают, написать.

+(14) только по уму бы все, что ты делаешь, далеть скриптом, чтобы такой мороки не было

(14)C:\script_get_GUID.vbs(1, 44) Ошибка компиляции Microsoft VBScript: Предполагается наличие окончания инструкции
(15)Мне дата не нужна, тем более из rar. Я её из cmd получаю. См.(13)Нужен GUID
(16)Нужно большое и длинное слово.

Вы о чем ?

Сдул UUIDGEN.EXE, но хотелось бы только скриптом, без сторонних exe-ников

(18)О, кто нам поможет.... :)  
Нужно из скрипта сделать GUID и засунуть его в поток(файл).

(2) а че не как в (14)
или я не понял

echo off
set file=%temp%\%random%.js
echo TypeLib = new ActiveXObject("Scriptlet.TypeLib");WScript.StdOut.Write(TypeLib.Guid);> %file%
cscript //b %file%
del /q %file%

Извращенный вариант ))

Перем Стр;
//*******************************************
Процедура Сформировать()
   Файл=КаталогВременныхФайлов()+_GetPerformanceCounter();
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку(Стр);
   Текст.Записать(Файл);
   КомандаСистемы("C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe " + Файл+".txt & "+Файл + " "+Файл+".txt");
   Текст.Открыть(Файл);
   Сообщить(Текст.ПолучитьСтроку(1));
   ФС.УдалитьФайл(Файл+".txt");
   ФС.УдалитьФайл(Файл+".exe");
КонецПроцедуры

//*******************************************
//*******************************************
Процедура Сформировать2()
   Файл=КаталогВременныхФайлов()+_GetPerformanceCounter();
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку(Стр);
   Текст.Записать(Файл);
   ШелСкрипт=СоздатьОбъект("WScript.Shell");
   ШелСкрипт.Run("C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe " + Файл+".txt ",0,-1);
   ШелСкрипт.Run(Файл + " "+Файл+".txt",0,-1);
   Текст.Открыть(Файл);
   Сообщить(Текст.ПолучитьСтроку(1));
   ФС.УдалитьФайл(Файл+".txt");
   ФС.УдалитьФайл(Файл+".exe");
КонецПроцедуры

Процедура Сформировать3()
   Файл=КаталогВременныхФайлов()+_GetPerformanceCounter();
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку(Стр);
   Текст.Записать(Файл);
   ШелСкрипт=СоздатьОбъект("WScript.Shell");
   ШелСкрипт.Run("C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe " + Файл+".txt ",0,-1);
   Процесс=ШелСкрипт.Exec(Файл);
   Сообщить(Процесс.StdOut.ReadAll());
   ФС.УдалитьФайл(Файл+".txt");
   ФС.УдалитьФайл(Файл+".exe");
КонецПроцедуры

Стр="Imports Microsoft.VisualBasic
   |module newguid
   |    sub main (ByVal Args() As String)
   |        Dim c As String
   |          For Each c In Args
   |            FileOpen(1, c, OpenMode.Output)
   |            Print(1,System.Guid.NewGuid().toString())
   |            FileClose(1)
   |          Next
   |        if ubound(Args)=-1 then
   |            System.Console.Write(System.Guid.NewGuid().toString())
   |        end if
   |    end sub
   |end module";


Даже так ))

????? ???;
//*******************************************
????????? ????????????()
   ????=??????????????????????()+_GetPerformanceCounter();
   ?????=?????????????("?????");
   ?????.??????????????(???);
   ?????.????????(????);
   ??????????????("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe /target:winexe " + ????+".txt /out:"+????+" & "+???? + " "+????+".txt");
   ?????.???????(????);
   ????????(?????.??????????????(1));
   ??.???????????(????+".txt");
   ??.???????????(????+".exe");
??????????????

//*******************************************
//*******************************************
????????? ????????????2()
   ????=??????????????????????()+_GetPerformanceCounter();
   ?????=?????????????("?????");
   ?????.??????????????(???);
   ?????.????????(????);
   ?????????=?????????????("WScript.Shell");
   ?????????.Run("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe /target:winexe " + ????+".txt /out:"+????,0,-1);
   ?????????.Run(???? + " "+????+".txt",0,-1);
   ?????.???????(????);
   ????????(?????.??????????????(1));
   ??.???????????(????+".txt");
   ??.???????????(????+".exe");
??????????????

????????? ????????????3()
   ????=??????????????????????()+_GetPerformanceCounter();
   ?????=?????????????("?????");
   ?????.??????????????(???);
   ?????.????????(????);
   ?????????=?????????????("WScript.Shell");
   ?????????.Run("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe /target:winexe " + ????+".txt /out:"+????,0,-1);
   ???????=?????????.Exec(????);
   ????????(???????.StdOut.ReadAll());
   ??.???????????(????+".txt");
   ??.???????????(????+".exe");
??????????????

???="Imports Microsoft.VisualBasic
   |module newguid
   |    sub main (ByVal Args() As String)
   |        Dim c As String
   |          For Each c In Args
   |            FileOpen(1, c, OpenMode.Output)
   |            Print(1,System.Guid.NewGuid().toString())
   |            FileClose(1)
   |          Next
   |        if ubound(Args)=-1 then
   |            System.Console.Write(System.Guid.NewGuid().toString())
   |        end if
   |    end sub
   |end module";


Опять русский не включил :(

Перем Стр;
//*******************************************
Процедура Сформировать()
   Файл=КаталогВременныхФайлов()+_GetPerformanceCounter();
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку(Стр);
   Текст.Записать(Файл);
   КомандаСистемы("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe /target:winexe " + Файл+".txt /out:"+Файл+" & "+Файл + " "+Файл+".txt");
   Текст.Открыть(Файл);
   Сообщить(Текст.ПолучитьСтроку(1));
   ФС.УдалитьФайл(Файл+".txt");
   ФС.УдалитьФайл(Файл+".exe");
КонецПроцедуры

//*******************************************
//*******************************************
Процедура Сформировать2()
   Файл=КаталогВременныхФайлов()+_GetPerformanceCounter();
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку(Стр);
   Текст.Записать(Файл);
   ШелСкрипт=СоздатьОбъект("WScript.Shell");
   ШелСкрипт.Run("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe /target:winexe " + Файл+".txt /out:"+Файл,0,-1);
   ШелСкрипт.Run(Файл + " "+Файл+".txt",0,-1);
   Текст.Открыть(Файл);
   Сообщить(Текст.ПолучитьСтроку(1));
   ФС.УдалитьФайл(Файл+".txt");
   ФС.УдалитьФайл(Файл+".exe");
КонецПроцедуры

Процедура Сформировать3()
   Файл=КаталогВременныхФайлов()+_GetPerformanceCounter();
   Текст=СоздатьОбъект("Текст");
   Текст.ДобавитьСтроку(Стр);
   Текст.Записать(Файл);
   ШелСкрипт=СоздатьОбъект("WScript.Shell");
   ШелСкрипт.Run("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe /target:winexe " + Файл+".txt /out:"+Файл,0,-1);
   Процесс=ШелСкрипт.Exec(Файл);
   Сообщить(Процесс.StdOut.ReadAll());
   ФС.УдалитьФайл(Файл+".txt");
   ФС.УдалитьФайл(Файл+".exe");
КонецПроцедуры

Стр="Imports Microsoft.VisualBasic
   |module newguid
   |    sub main (ByVal Args() As String)
   |        Dim c As String
   |          For Each c In Args
   |            FileOpen(1, c, OpenMode.Output)
   |            Print(1,System.Guid.NewGuid().toString())
   |            FileClose(1)
   |          Next
   |        if ubound(Args)=-1 then
   |            System.Console.Write(System.Guid.NewGuid().toString())
   |        end if
   |    end sub
   |end module";


(23) Вот этот вариант особо хорош! Немедленно в КЗ! )

(17) это надо скрипт с текстом

   TypeLib = CreateObject("Scriptlet.TypeLib");
   WScript.StdOut.Write(TypeLib.Guid());

сохранить под именем script_get_GUID.vbs

Хотя (21) универсальней

http://forum.d01-soft.ru/dload.php?action=file&file_id=5

Внешняя компонента для 1С v7.7

Добавляет следующие функции:

1. Пауза

2. Генерирование GUID

3. Идентификатор процесса 1С

4. Определение простоя 1С

5. Мониторинг файловой системы

6. MD5 хеш файла

7. Монитор новых заявок для AMSD Full

8. Hash код строки (Функция int ПолучитьУникальныйКодСтроки(Строка))

Системные требования:

Microsoft Windows, Microsoft .Net Framework 2.0

(21)То что нужно(проктически. Только нужно @echo off
И не получается отрезать скобки
echo TypeLib = new ActiveXObject("Scriptlet.TypeLib"); NewGUID=TypeLib.Guid; WScript.StdOut.Write(left(NewGUID, len(NewGUID)-2));> %file%  пусто :(

echo off
set file=%temp%\%random%.js
echo TypeLib = new ActiveXObject("Scriptlet.TypeLib");WScript.StdOut.Write(TypeLib.Guid.substr(1,36));> %file%
cscript //b %file%
del /q %file%

Ещё первой строкой:
@ echo off
Или форматер съел? Спасибо, то что нужно :)