[LITBe]

Не нашёл здесь на сайте поэтому напишу сюда, вдруг кому ещё пригодится.
Вобщем проблема была в том что этот скрипт на windows 7 не отрабатывал, пытался его подправить но ничего не получилось, пришлось искать что-то похожее на VBscript и править его, в итоге вот скрипт работает и на ХР и на 7. Проверяет есть ли уже данное значение в переменной Path и если нету то дописывает:

Dim ExistingPath, NewPath, PathElement, PathExists, OldPath
Set oShell = WScript.CreateObject("WScript.Shell")
Set oEnv = oShell.Environment("SYSTEM")
' Строчка/папка которую надо добавить у меня это %Program Files%
PathToAdd = "%Program Files%"

OldPath = Split(oENV("path"), ";", -1, vbTextCompare)
PathExists = False
For Each PathElement In OldPath
If StrComp(PathElement, PathToAdd, vbTextCompare) = 0 Then
PathExists = True

Exit For
End If
Next

If Not PathExists Then


ExistingPath = oEnv("PATH")
' добавляем нашу строчку у меня это %Program Files%
NewPath = ExistingPath & ";" & "%Program Files%"
oEnv("PATH") = NewPath


End If