[решено] Как отредактировать code в vbs чтобы антивирусник не ругался

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Как отредактировать code в vbs чтобы антивирусник не ругался

Iska, друг и коллега мой, прошу твоей помощи, я накидал код для генерации ID, все работает как часы, но есть одна неприятная проблема,на
этот код как не странно ругается антивирусник аваст, мой вопрос к тебе такой, как можно сделать чтобы она не ругалась??
может немного иначе прописать? или симвалы вроде >nul поставить в конце строк не знаю.... лишь бы она не ругалась на этот скрипт!
помоги пожалуйста, мне очень нужна твоя помощь!Ты ЛУЧШИЙ в своем деле!
А вот и мой код:

Код:

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

Наверное глупый вопрос, но мне сначало зайти в раздел редактирование, вставить свой код текста и нажать на теги code?я так и делаю и сохраняю но ничего не меняется

Код:

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

все получилось,Iska, я все!!

Iska, мой вопрос такой, код работает хорошо, делает все то что и должен, но антивирусник аваст ругается на него! Как сделать чтобы не ругалась, можете переписать что-то надо, помоги пожалуйста, целый день жду твоего ответа!

Цитата:

Цитата NEOINFORMATIONIS

но антивирусник аваст ругается на него! »

Не подтверждаю. У меня — не «ругается».

Цитата:

Цитата NEOINFORMATIONIS

можете переписать что-то надо, »

Могу:

Код:

Option Explicit



WScript.Echo Mid(WScript.CreateObject("Scriptlet.TypeLib").Guid, 2, 36)



WScript.Quit 0

что мне делать с этим кодом, куда его вписать?

Iska, мне нужно чтобы id был из 9 цифр и постоянно менялся при каждом запуске.
в txt где я его запущу

этого я не увидел, она открывается в окошке да еще и с цифрами, а мне нужно чтобы она была из 9 цифр и без (-)
каждый раз был уникальным и сохранялся в txt там где я его запущу

у меня такая задача, нужно чтобы были цифры не буквы а цифры из 9 либо из 12 без (-)
чтобы они каждый раз были уникальными и сохранялись в txt там где я ее открою

Код:

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

Iska, почему ты такой умный?!
для тебя нет ничего невозможно, Iska , ты МОЛОДЕЦ!!!

Iska, скажи пожалуйста, почему у меня нет удаляется в реестре эта ветка этой командой, запускаю от имени администратора все равно не удаляет!?
Пишет не является внутренней или внешней командой!
reg delete "HKEY_LOCAL_MACHINE\SYSTEM\Lit\v3.4

NEOINFORMATIONIS, это вопрос, никак уже не связанный с данной темой.

Цитата:

Цитата NEOINFORMATIONIS

ругается антивирусник аваст, мой вопрос к тебе такой, как можно сделать чтобы она не ругалась?? »

Варианта два:
1. научится пользоваться антивирусником (настройки)
2. сменить его на более адекватный