[Iska]

При запуске скрипта abc выходят окошки »

Исполняйте скрипт посредством cscript.exe (вместо умолчального wscript.exe) — и вывод от WScript.Echo будет отправляться в консоль, а не отображаться окнами MessageBox(). У меня cscript вообще переназначен умолчальным.

Убил перезагрузкой »

Достаточно снять соответствующий процесс wscript.exe/cscript.exe.

Может и вправду из за того что назначил блокнот программой по умолчанию для файлов .vbs ? »

А зачем?

и вопрос тот же , что еще надо в коде чтобы можно было выключить это окно, например сочетанием клавиш? »

Ничего.

[v79italya]

скрипт посредством cscript.exe (вместо умолчального »

в какой папке его найти?

Достаточно снять соответствующий процесс wscript.exe/cscript.exe »

Смотрел я в диспетчере задач и не понял какой - их там много всегда

А зачем? »

ну чтоб править в блокноте. А запускать ПКМ

что здесь опасного написано?

HTML код:

Dim cuiSh
Set cuiSh = WScript.CreateObject ("WScript.Shell")
cuiSh.run "cmd /c net start FontCache3.0.0.0",0
Set cuiSh = Nothing

[Iska]

в какой папке его найти? »

Там же, где и wscript.exe — в %SystemRoot%\System32.

Смотрел я в диспетчере задач и не понял какой - их там много всегда »

Вообще, постоянно там не должно быть ни одного. Разбирайтесь, откуда они у Вас там берутся. Process Explorer, Autoruns и Process Monitor в помощь.

ну чтоб править в блокноте. А запускать ПКМ »

Чтобы редактировать — используйте ПКМ, чтобы исполнять — ЛКМ, а не наоборот. Не все идеи, почерпнутые у Microsoft с его подходом к PowerShell'у, хороши.

что здесь опасного написано? »

Насчёт «опасного» — не знаю. По факту — не слишком удачно реализованный запуск службы «FontCache3.0.0.0».

[v79italya]

Там же, где и wscript.exe — в %SystemRoot%\System32 »

нашел в папке C:\Windows\System32 cscript.exe (значок куб с двумя антеннками). Не работает, выскакивает черное окно и исчезает.

постоянно там не должно быть ни одного »

не помню чтоб ни одного)все время как на скрине. Я и не парился

[Iska]

Не работает, выскакивает черное окно и исчезает. »

Именно так и работает. Чтобы не закрывалось окно консоли — исполняйте из-под cmd.exe (либо приобщайтесь к Far Manager, если планируете много и плодотворно работать с консолью).

не помню чтоб ни одного)все время как на скрине. Я и не парился »

Я не вижу ни единого wscript.exe/cscript.exe на Ваших скриншотах. Там много Google Chrome'а, и это как раз нормально.

[v79italya]

исполняйте из-под cmd.exe »

А как это делать? Запустить cmd а потом скрипт?
Запустил cmd, а потом скрипт. Не получил результат. Cmd без изменений, а скрипт мигнул и был таков

[Iska]

А как это делать? Запустить cmd а потом скрипт? »

Да:

Скрытый текст

Запустил cmd, а потом скрипт. Не получил результат. Cmd без изменений, а скрипт мигнул и был таков »

Так если Вы не поменяли умолчания, следует указать, что исполнять скрипт надо именно под cscript.exe.

[v79italya]

Запустил cmd, а потом скрипт. Не получил результат. »

Я запустил cmd, а потом тапнул два раза по vbs.

Получилось по другому: запустить cmd, а потом в cmd вставить адрес vbs - C:\abc.vbs - и Enter

[v79italya]

Iska, спасибо, стало понятнее
А можно как нибудь попроще запустить код без воркбенча в cmd?
Вот этот код:

HTML код:

DROP DATABASE IF EXISTS abc;
CREATE DATABASE abc;
use abc
DROP TABLE IF EXISTS table2;
CREATE TABLE table2 (
Id INT PRIMARY KEY AUTO_INCREMENT,
txt VARCHAR(100) NOT NULL DEFAULT 'abc',
txt2 VARCHAR(100) COMMENT 'abc'
); 
SHOW TABLES;
DESC table2;

[Iska]

А можно как нибудь попроще запустить код без воркбенча в cmd? »

Можно. Например:

Скрытый текст

Код:

Option Explicit

With WScript.CreateObject("ADODB.Connection")
	.Open _
		"Driver={MySQL ODBC 5.3 UNICODE Driver};" & _
		"Server=localhost;" & _
		"User=root;" & _
		"Password=MyPassword;"
	
	.Execute "DROP DATABASE IF EXISTS abc"
	.Execute "CREATE DATABASE abc"
	.Execute "USE abc"
	.Execute "DROP TABLE IF EXISTS table2"
	.Execute "CREATE TABLE table2 (Id INT PRIMARY KEY AUTO_INCREMENT, txt VARCHAR(100) NOT NULL DEFAULT 'abc', txt2 VARCHAR(100) COMMENT 'abc')"
	
	ShowTable .Execute("SHOW TABLES")
	ShowTable .Execute("DESC table2")
	
	.Close
End With

WScript.Quit 0
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
Sub ShowTable(objRecordset)
	Dim i
	
	With objRecordset
		.MoveFirst
		
		For i = 0 To .Fields.Count - 2
			WScript.StdOut.Write .Fields.Item(i).Name & "," & vbTab
		Next
		
		WScript.StdOut.WriteLine .Fields.Item(.Fields.Count - 1).Name
		
		WScript.StdOut.WriteLine "-----------------------------"
		
		Do Until .EOF
			For i = 0 To .Fields.Count - 2
				WScript.StdOut.Write .Fields.Item(i).Value & "," & vbTab
			Next
			
			WScript.StdOut.WriteLine .Fields.Item(.Fields.Count - 1).Value
			
			.MoveNext
		Loop
		
		WScript.StdOut.WriteLine "-----------------------------"
		WScript.StdOut.WriteLine
		
		.Close
	End With
End Sub
'-----------------------------------------------------------------------------

Написать cscript.exe //nologo и затем уже:

вставить адрес vbs - C:\abc.vbs - и Enter »