kvitaliy обращаюсь к Вам по направлению

[oskol]

kvitaliy, я разобрался))

[oskol]

Но нужна твоя помощь, скажи пожалуйста, как можно сделать следующую цепочку:
1. Чтобы сгенерировалсь ID там где я ее открою в txt., но так чтобы генерация всегда была уникальной из 9 цифр? допустим я нажимаю на скрипт vbs, она создает в txt ID из 9 цифр, я снова нажимаю на скрипт и она снова создает уникальный ID в этой же txt удаляя старый и так до бесконечности ID будет меняться, как такое можно сделать?!

[oskol]

kvitaliy, выходи на связь, пожалуйста!! мне нужна твоя помощь!!

[kvitaliy]

Сообщение от oskol

мне нужна твоя помощь!!

За испорченный выходной с тебя бутылка коньяка!
В папке со скриптом будет файл id.txt
ID меняется после перезапуска скрипта.

Set fso = CreateObject("Scripting.FileSystemObject")
Set Text = fso.CreateTextFile("id.txt")
dim a, DesiredLength, DesiredCount
DesiredLength = 9 ' тут длина ID
DesiredCount =1   ' тут  можно генерировать сразу много штук в одном файле
FOR a=1 to DesiredCount
Randomize( )

dim anton
anton = Array(Array( DesiredLength, "0123456789" )) ' тут можно добавить любые знаки кроме цифр например HEX : ABCDEF
dim i
dim j
dim Count
dim Chars
dim Index
dim Temp
Count = anton( 0 )( 0 )
Chars = anton( 0 )( 1 )
for j = 1 to Count
Index = Int( Rnd( ) * Len( Chars ) ) + 1
Temp = Temp & Mid( Chars, Index, 1 )
next
dim TempCopy
do until Len( Temp ) = 0
Index = Int( Rnd( ) * Len( Temp ) ) + 1
TempCopy = TempCopy & Mid( Temp, Index, 1 )
Temp = Mid( Temp, 1, Index - 1 ) & Mid( Temp, Index + 1 )
loop
RandomString = TempCopy
Text.WriteLine(RandomString)
TempCopy=""
Rnd( )
next
Text.Close

[oskol]

kvitaliy, щас проверю и отпишусь))))

[oskol]

kvitaliy, все работает как часы но почему антивирусник аваст ругается?!
я ее выключаю только потом она создает id, а так не пускает!
вот сам текст предупреждения от антивируснкиа аваст:
Только что мы защитили ваш файл.
пытается изменить или удалить фал ID.TXT

[oskol]

kvitaliy, как с этим быть??! антивирусник ругается на этот код, можно как-то скрыть командами код, чтобы не ругался, скажем такими символами >nul ?

[kvitaliy]

Сообщение от oskol

kvitaliy, все работает как часы но почему антивирусник аваст ругается?!
я ее выключаю только потом она создает id, а так не пускает!
вот сам текст предупреждения от антивируснкиа аваст:
Только что мы защитили ваш файл.
пытается изменить или удалить фал ID.TXT

Защитил текстовый файл от скрипта, который и создается этим скриптом
Аваст сегодня победил в моей номинации "самый тупой антивирусник"!
От тупости только одно лекарство - в исключения скрипт внеси.

[oskol]

kvitaliy, слушай я тут тоже накидал кое какой код но этот сукин сын АВАСТ его тоже палит!
вот погляди:

    Option Explicit

Const intLength = 12

Randomize Timer

With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("id.txt", True)
	.WriteLine Right(String(intLength, "0") & CStr(Int(10^(intLength + 1) * Rnd())), intLength)
	.Close
End With

WScript.Quit 0

[oskol]

kvitaliy, вот смотри какая задача:
1. Скрипт создает id.txt там где его запускаешь.
2.Отправляет ID,IP,ИМЯ ПК,РАЗРЯДНОСТЬ,ОПЕРАЦИОНКУ ВСЕ ЭТО НА ПОЧТУ В ВИДЕ ТЕКСТА!
3. Удаляет ID.TXT С ТОГО МЕСТА ГДЕ И СОЗДАЛСЯ.
Всеь материал у меня есть, просто нужно правильно его собрать, вот выкладываю тебе весь код: