Не могу прочитать Vbs

[gmsmag]

Не могу прочитать код скрипта - но скрипт на win7 начудил - что сам не пойму.
код ниже - кто сможет оценить результаты его действия и возможно ли все вернуть, как было до него - откат системы -не помог.
Сам Код

If Not WScript.Arguments.Named.Exists("ele vate") Then
CreateObject("Shell.Application").S hellExecute WScript.FullName, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 10
WScript.Quit
End If

Set oShell = CreateObject("WScript.Shell")
Set oEnvSystem = oShell.Environment("SYSTEM")
Set oFS = CreateObject("Scripting.FileSystemO bject")

Dim sBasePath, sJarFile
sBasePath = oFS.GetParentFolderName(oFS.GetPare ntFolderName(WScript.ScriptFullName ))
sJarFile = sBasePath & "\ja-netfilter.jar"

If Not oFS.FileExists(sJarFile) Then
MsgBox "ja-netfilter.jar not found", vbOKOnly Or vbCritical
WScript.Quit -1
End If

MsgBox "It may take a few seconds to execute this script." & vbCrLf & vbCrLf & "Click 'OK' button and wait for the prompt of 'Done.' to pop up!"

Dim sEnvKey, sEnvVal, aJBProducts
aJBProducts = Array("idea", "clion", "phpstorm", "goland", "pycharm", "webstorm", "webide", "rider", "datagrip", "rubymine", "appcode", "dataspell", "gateway", "jetbrains_client", "jetbrainsclient", "studio", "devecostudio")

Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "^\-javaagent:.*[\/\\]ja\-netfilter\.jar.*"

Sub RemoveEnv(env)
On Error Resume Next

For Each sPrd in aJBProducts
sEnvKey = UCase(sPrd) & "_VM_OPTIONS"
sEnvVal = oShell.ExpandEnvironmentStrings("%" & sEnvKey & "%")
If sEnvVal <> ("%" & sEnvKey & "%") Then
env.Remove(sEnvKey)
End If
Next
End Sub

RemoveEnv oShell.Environment("USER")

Dim sVmOptionsFile
For Each sPrd in aJBProducts
sEnvKey = UCase(sPrd) & "_VM_OPTIONS"
sVmOptionsFile = sBasePath & "\vmoptions" & sPrd & ".vmoptions"
If oFS.FileExists(sVmOptionsFile) Then
ProcessVmOptions sVmOptionsFile
oEnvSystem(sEnvKey) = sVmOptionsFile
End If
Next

Sub ProcessVmOptions(ByVal file)
Dim sLine, sNewContent, bMatch
Set oFile = oFS.OpenTextFile(file, 1, 0)

sNewContent = ""
Do Until oFile.AtEndOfStream
sLine = oFile.ReadLine
bMatch = re.Test(sLine)
If Not bMatch Then
sNewContent = sNewContent & sLine & vbLf
End If
Loop
oFile.Close

sNewContent = sNewContent & "-javaagent:" & sJarFile & "=jetbrains"
Set oFile = oFS.OpenTextFile(file, 2, 0)
oFile.Write sNewContent
oFile.Close
End Sub

MsgBox "Done."

[gmsmag]

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

Не могу прочитать код скрипта - но скрипт на win7 начудил - что сам не пойму.
код ниже - кто сможет оценить результаты его действия и возможно ли все вернуть, как было до него - откат системы -не помог.
Сам Код

If Not WScript.Arguments.Named.Exists("ele vate") Then
CreateObject("Shell.Application").S hellExecute WScript.FullName, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 10
WScript.Quit
End If

Set oShell = CreateObject("WScript.Shell")
Set oEnvSystem = oShell.Environment("SYSTEM")
Set oFS = CreateObject("Scripting.FileSystemO bject")

Dim sBasePath, sJarFile
sBasePath = oFS.GetParentFolderName(oFS.GetPare ntFolderName(WScript.ScriptFullName ))
sJarFile = sBasePath & "\ja-netfilter.jar"

If Not oFS.FileExists(sJarFile) Then
MsgBox "ja-netfilter.jar not found", vbOKOnly Or vbCritical
WScript.Quit -1
End If

MsgBox "It may take a few seconds to execute this script." & vbCrLf & vbCrLf & "Click 'OK' button and wait for the prompt of 'Done.' to pop up!"

Dim sEnvKey, sEnvVal, aJBProducts
aJBProducts = Array("idea", "clion", "phpstorm", "goland", "pycharm", "webstorm", "webide", "rider", "datagrip", "rubymine", "appcode", "dataspell", "gateway", "jetbrains_client", "jetbrainsclient", "studio", "devecostudio")

Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "^\-javaagent:.*[\/\\]ja\-netfilter\.jar.*"

Sub RemoveEnv(env)
On Error Resume Next

For Each sPrd in aJBProducts
sEnvKey = UCase(sPrd) & "_VM_OPTIONS"
sEnvVal = oShell.ExpandEnvironmentStrings("%" & sEnvKey & "%")
If sEnvVal <> ("%" & sEnvKey & "%") Then
env.Remove(sEnvKey)
End If
Next
End Sub

RemoveEnv oShell.Environment("USER")

Dim sVmOptionsFile
For Each sPrd in aJBProducts
sEnvKey = UCase(sPrd) & "_VM_OPTIONS"
sVmOptionsFile = sBasePath & "\vmoptions" & sPrd & ".vmoptions"
If oFS.FileExists(sVmOptionsFile) Then
ProcessVmOptions sVmOptionsFile
oEnvSystem(sEnvKey) = sVmOptionsFile
End If
Next

Sub ProcessVmOptions(ByVal file)
Dim sLine, sNewContent, bMatch
Set oFile = oFS.OpenTextFile(file, 1, 0)

sNewContent = ""
Do Until oFile.AtEndOfStream
sLine = oFile.ReadLine
bMatch = re.Test(sLine)
If Not bMatch Then
sNewContent = sNewContent & sLine & vbLf
End If
Loop
oFile.Close

sNewContent = sNewContent & "-javaagent:" & sJarFile & "=jetbrains"
Set oFile = oFS.OpenTextFile(file, 2, 0)
oFile.Write sNewContent
oFile.Close
End Sub

MsgBox "Done."

Суть что скрипт сделал с виндами !!!

[p51x]

Ничего он с виндами не делал. А обсуждение кряков и взлома запрещено правилами форума.