VBScript: Просто пишет, какой раз был запущен скрипт =)

2012-06-01T12:41:44Z

Этот скрипт состоит из очень простых функций, создается файл,с загадочным именем,и при каждом открытии скрипта туда дописывается "0", после этого скрипт считает сколько символов всего в файле, и выдает на экран количество, в форме MessageBox, с приписыванием нескольких слов.=)
Прошу прощения, за выкладывание такого легкого, никому не нужного скрипта=)

Dim a,b,d,e
Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.OpenTextFile("C:\WINDOWS\system32\qhsd.whp", 8, True) 
Set e = a.GetFile("C:\WINDOWS\system32\qhsd.whp")
Set d = e.OpenAsTextStream(1)
b.Write 0
MsgBox "Скрипт был запущен "&Len(d.ReadAll())&" раз.",,"WScript"
b.Close

Серый форум — VBScript: Просто пишет, какой раз был запущен скрипт =)

VBScript: Просто пишет, какой раз был запущен скрипт =)