Цитата Iska:
И для понимания структуры примера »
|
сразу я не понял
как убить эти окошки? уже 136. Я еще и два окна запустил
HTML код:
Option Explicit
Const adOpenStatic = 3
With WScript.CreateObject("ADODB.Recordset")
.Open _
"SELECT * FROM city", _
"Driver={MySQL ODBC 5.2 UNICODE Driver};" & _
"Server=localhost;" & _
"Database=sakila;" & _
"User=root;" & _
"Password=000000;", _
adOpenStatic
.MoveFirst
WScript.Echo .Fields.Item(0).Name
WScript.Echo "---------------"
Do Until .EOF
WScript.Echo .Fields.Item(0).Value
.MoveNext
Loop
.Close
End With
WScript.Quit 0
Еще после перезагрузки вышло это - GfxCUIServiceInstall.vbs с кодом:
HTML код:
Dim cuiSh
Set cuiSh = WScript.CreateObject ("WScript.Shell")
cuiSh.run "cmd /c net start FontCache3.0.0.0",0
Set cuiSh = Nothing
Что с этим делать?