Правила форума  |  Как оформлять свои темы и комментарии  |  Как делать крутые скриншоты  |  ВАЖНО

Вы должны войти, чтобы создавать сообщения и темы.

скрипт выключение компьютера [Решено]

Страница 1 из 4► 4
Profile photo ofintyiciya
intyiciya@intyiciya
98 Сообщений
Pro
#1 · 18.03.2021, 16:54

можно скрипт на выключение компьютера?)

обновить оболчку есть и перезагрузка есть от твикера...

Комментарий модератора:
У нас принято здороваться

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Profile photo ofintyiciya
intyiciya@intyiciya
98 СообщенийАвтор темы
Pro
#2 · 18.03.2021, 17:00

извените...

Здравствуйте...

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Profile photo ofPotapovS
Сергей@potapovs
9 503 Сообщения
Модератор
Pro
#3 · 18.03.2021, 17:05

Добрый день 🖐
Пожалуйста. Осторожно, двойной клик по файлу сразу выключит комп.

Голосуйте - палец вниз.0Голосуйте - палец вверх.1
Лайкнул Psydiant
Psydiant
Где скачать Windows 10 |  Плейлист Windows |  Защита и безопасность |  Курсоры/Обои
Profile photo ofintyiciya
intyiciya@intyiciya
98 СообщенийАвтор темы
Pro
#4 · 18.03.2021, 17:18
Цитата: Сергей от 18.03.2021, 17:05

Добрый день 🖐
Пожалуйста. Осторожно, двойной клик по файлу сразу выключит комп.

спасибо,а как изменить иконочку?)

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Profile photo ofYar
ЯR@yar
2 358 Сообщений
Модератор
Pro
#5 · 18.03.2021, 17:22

Здравствуйте!
Переместите vbs-скрипт в нужное вам место, далее, создайте ярлык на данный скрипт, на Рабочем столе, например, и в свойствах ярлыка, измените иконку.

Голосуйте - палец вниз.0Голосуйте - палец вверх.1
Лайкнул Psydiant
Psydiant
Лучший способ помочь себе — помогать другим.
Profile photo ofintyiciya
intyiciya@intyiciya
98 СообщенийАвтор темы
Pro
#6 · 18.03.2021, 17:32
Цитата: Яр от 18.03.2021, 17:22

Здравствуйте!
Переместите vbs-скрипт в нужное вам место, далее, создайте ярлык на данный скрипт, на Рабочем столе, например, и в свойствах ярлыка, измените иконку.

спасибо

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Profile photo ofRomik020178
Roman@romik020178
287 Сообщений
Pro
#7 · 29.03.2024, 09:09
Цитата: Сергей от 18.03.2021, 17:05

Добрый день 🖐
Пожалуйста. Осторожно, двойной клик по файлу сразу выключит комп.

Здравствуйте.Можно  скрипт?

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Mikhail@satirov
13 439 Сообщений
Высшая репутация
Pro
#8 · 29.03.2024, 10:35

Roman, Привет.
Отдельно:

Скрипт

Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 0"


В Авторском скрипте от Хачатура:
Аргумент Скопировано-shutdown
Скрипт

'Script by XpucT

Set o = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.Count = 0 Then
    WScript.Quit
End If

If WScript.Arguments(0) = "-refresh" Then
    Call Refresh
ElseIf WScript.Arguments(0) = "-reboot" Then
    Call Reboot
ElseIf WScript.Arguments(0) = "-shutdown" Then
    Call Shutdown
End If

Sub Refresh
    o.Run "ie4uinit.exe -show"
    o.Run "ie4uinit.exe -ClearIconCache"
    
    WScript.Sleep 1000
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    local = o.ExpandEnvironmentStrings("%LocalAppData%")   
    path = "\Microsoft\Internet Explorer\"
    If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then
        fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log"
    End If
    If fso.FileExists(local & path & "ie4uinit-show.log") Then
        fso.DeleteFile local & path & "ie4uinit-show.log"
    End If
    If fso.FileExists(local & path & "brndlog.txt") Then
        fso.DeleteFile local & path & "brndlog.txt"
    End If
    If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then
        fso.DeleteFile local & path & "ie4uinit-UserConfig.log"
    End If
End Sub

Sub Reboot
    o.Run "cmd /c shutdown -r -f -t 0", 0, True
End Sub

Sub Shutdown
    o.Run "cmd /c shutdown -s -t 0", 0, True
End Sub

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн
Profile photo ofRomik020178
Roman@romik020178
287 Сообщений
Pro
#9 · 29.03.2024, 12:05

Спасибо!

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Profile photo ofRomik020178
Roman@romik020178
287 Сообщений
Pro
#10 · 29.03.2024, 14:25
Цитата: Mikhail от 29.03.2024, 10:35

Roman, Привет.
Отдельно:

Скрипт

 
 
 
 
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 0"
Set objShell = CreateObject("WScript.Shell") objShell.Run "shutdown -s -t 0"
 
Set objShell = CreateObject("WScript.Shell")
objShell.Run "shutdown -s -t 0"


В Авторском скрипте от Хачатура:
Аргумент Скопировано-shutdown
Скрипт

 
 
 
 
'Script by XpucT
 
Set o = WScript.CreateObject("WScript.Shell")
 
If WScript.Arguments.Count = 0 Then
WScript.Quit
End If
 
If WScript.Arguments(0) = "-refresh" Then
Call Refresh
ElseIf WScript.Arguments(0) = "-reboot" Then
Call Reboot
ElseIf WScript.Arguments(0) = "-shutdown" Then
Call Shutdown
End If
 
Sub Refresh
o.Run "ie4uinit.exe -show"
o.Run "ie4uinit.exe -ClearIconCache"
 
WScript.Sleep 1000
 
Set fso = CreateObject("Scripting.FileSystemObject")
local = o.ExpandEnvironmentStrings("%LocalAppData%")
path = "\Microsoft\Internet Explorer\"
If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then
fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log"
End If
If fso.FileExists(local & path & "ie4uinit-show.log") Then
fso.DeleteFile local & path & "ie4uinit-show.log"
End If
If fso.FileExists(local & path & "brndlog.txt") Then
fso.DeleteFile local & path & "brndlog.txt"
End If
If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then
fso.DeleteFile local & path & "ie4uinit-UserConfig.log"
End If
End Sub
 
Sub Reboot
o.Run "cmd /c shutdown -r -f -t 0", 0, True
End Sub
 
Sub Shutdown
o.Run "cmd /c shutdown -s -t 0", 0, True
End Sub
'Script by XpucT Set o = WScript.CreateObject("WScript.Shell") If WScript.Arguments.Count = 0 Then WScript.Quit End If If WScript.Arguments(0) = "-refresh" Then Call Refresh ElseIf WScript.Arguments(0) = "-reboot" Then Call Reboot ElseIf WScript.Arguments(0) = "-shutdown" Then Call Shutdown End If Sub Refresh o.Run "ie4uinit.exe -show" o.Run "ie4uinit.exe -ClearIconCache" WScript.Sleep 1000 Set fso = CreateObject("Scripting.FileSystemObject") local = o.ExpandEnvironmentStrings("%LocalAppData%") path = "\Microsoft\Internet Explorer\" If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log" End If If fso.FileExists(local & path & "ie4uinit-show.log") Then fso.DeleteFile local & path & "ie4uinit-show.log" End If If fso.FileExists(local & path & "brndlog.txt") Then fso.DeleteFile local & path & "brndlog.txt" End If If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then fso.DeleteFile local & path & "ie4uinit-UserConfig.log" End If End Sub Sub Reboot o.Run "cmd /c shutdown -r -f -t 0", 0, True End Sub Sub Shutdown o.Run "cmd /c shutdown -s -t 0", 0, True End Sub
 
'Script by XpucT

Set o = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.Count = 0 Then
    WScript.Quit
End If

If WScript.Arguments(0) = "-refresh" Then
    Call Refresh
ElseIf WScript.Arguments(0) = "-reboot" Then
    Call Reboot
ElseIf WScript.Arguments(0) = "-shutdown" Then
    Call Shutdown
End If

Sub Refresh
    o.Run "ie4uinit.exe -show"
    o.Run "ie4uinit.exe -ClearIconCache"
    
    WScript.Sleep 1000
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    local = o.ExpandEnvironmentStrings("%LocalAppData%")   
    path = "\Microsoft\Internet Explorer\"
    If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then
        fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log"
    End If
    If fso.FileExists(local & path & "ie4uinit-show.log") Then
        fso.DeleteFile local & path & "ie4uinit-show.log"
    End If
    If fso.FileExists(local & path & "brndlog.txt") Then
        fso.DeleteFile local & path & "brndlog.txt"
    End If
    If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then
        fso.DeleteFile local & path & "ie4uinit-UserConfig.log"
    End If
End Sub

Sub Reboot
    o.Run "cmd /c shutdown -r -f -t 0", 0, True
End Sub

Sub Shutdown
    o.Run "cmd /c shutdown -s -t 0", 0, True
End Sub

Здравствуйте.Подскажите можно добавить в скрипт очистку кеша DNS ?

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Mikhail@satirov
13 439 Сообщений
Высшая репутация
Pro
#11 · 29.03.2024, 14:47

Roman, Можно.
Скопировано-cleardns

Скрипт

'Script by XpucT

Set o = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.Count = 0 Then
    WScript.Quit
End If

If WScript.Arguments(0) = "-refresh" Then
    Call Refresh
ElseIf WScript.Arguments(0) = "-reboot" Then
    Call Reboot
ElseIf WScript.Arguments(0) = "-shutdown" Then
    Call Shutdown
ElseIf WScript.Arguments(0) = "-cleardns" Then
    Call ClearDNSCache
End If

Sub Refresh
    o.Run "ie4uinit.exe -show"
    o.Run "ie4uinit.exe -ClearIconCache"
    
    WScript.Sleep 1000
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    local = o.ExpandEnvironmentStrings("%LocalAppData%")   
    path = "\Microsoft\Internet Explorer\"
    If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then
        fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log"
    End If
    If fso.FileExists(local & path & "ie4uinit-show.log") Then
        fso.DeleteFile local & path & "ie4uinit-show.log"
    End If
    If fso.FileExists(local & path & "brndlog.txt") Then
        fso.DeleteFile local & path & "brndlog.txt"
    End If
    If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then
        fso.DeleteFile local & path & "ie4uinit-UserConfig.log"
    End If
End Sub

Sub Reboot
    o.Run "cmd /c shutdown -r -f -t 0", 0, True
End Sub

Sub Shutdown
    o.Run "cmd /c shutdown -s -t 0", 0, True
End Sub

Sub ClearDNSCache
    o.Run "cmd /c ipconfig /flushdns", 0, True
End Sub

Голосуйте - палец вниз.0Голосуйте - палец вверх.1
Лайкнул Arman
Arman
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн
Profile photo ofRomik020178
Roman@romik020178
287 Сообщений
Pro
#12 · 29.03.2024, 15:23

Большое спасибо!

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Profile photo ofRomik020178
Roman@romik020178
287 Сообщений
Pro
#13 · 30.03.2024, 06:14
Цитата: Mikhail от 29.03.2024, 14:47

Roman, Можно.
Скопировано-cleardns

Скрипт

 
 
 
 
'Script by XpucT
 
Set o = WScript.CreateObject("WScript.Shell")
 
If WScript.Arguments.Count = 0 Then
WScript.Quit
End If
 
If WScript.Arguments(0) = "-refresh" Then
Call Refresh
ElseIf WScript.Arguments(0) = "-reboot" Then
Call Reboot
ElseIf WScript.Arguments(0) = "-shutdown" Then
Call Shutdown
ElseIf WScript.Arguments(0) = "-cleardns" Then
Call ClearDNSCache
End If
 
Sub Refresh
o.Run "ie4uinit.exe -show"
o.Run "ie4uinit.exe -ClearIconCache"
 
WScript.Sleep 1000
 
Set fso = CreateObject("Scripting.FileSystemObject")
local = o.ExpandEnvironmentStrings("%LocalAppData%")
path = "\Microsoft\Internet Explorer\"
If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then
fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log"
End If
If fso.FileExists(local & path & "ie4uinit-show.log") Then
fso.DeleteFile local & path & "ie4uinit-show.log"
End If
If fso.FileExists(local & path & "brndlog.txt") Then
fso.DeleteFile local & path & "brndlog.txt"
End If
If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then
fso.DeleteFile local & path & "ie4uinit-UserConfig.log"
End If
End Sub
 
Sub Reboot
o.Run "cmd /c shutdown -r -f -t 0", 0, True
End Sub
 
Sub Shutdown
o.Run "cmd /c shutdown -s -t 0", 0, True
End Sub
 
Sub ClearDNSCache
o.Run "cmd /c ipconfig /flushdns", 0, True
End Sub
'Script by XpucT Set o = WScript.CreateObject("WScript.Shell") If WScript.Arguments.Count = 0 Then WScript.Quit End If If WScript.Arguments(0) = "-refresh" Then Call Refresh ElseIf WScript.Arguments(0) = "-reboot" Then Call Reboot ElseIf WScript.Arguments(0) = "-shutdown" Then Call Shutdown ElseIf WScript.Arguments(0) = "-cleardns" Then Call ClearDNSCache End If Sub Refresh o.Run "ie4uinit.exe -show" o.Run "ie4uinit.exe -ClearIconCache" WScript.Sleep 1000 Set fso = CreateObject("Scripting.FileSystemObject") local = o.ExpandEnvironmentStrings("%LocalAppData%") path = "\Microsoft\Internet Explorer\" If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log" End If If fso.FileExists(local & path & "ie4uinit-show.log") Then fso.DeleteFile local & path & "ie4uinit-show.log" End If If fso.FileExists(local & path & "brndlog.txt") Then fso.DeleteFile local & path & "brndlog.txt" End If If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then fso.DeleteFile local & path & "ie4uinit-UserConfig.log" End If End Sub Sub Reboot o.Run "cmd /c shutdown -r -f -t 0", 0, True End Sub Sub Shutdown o.Run "cmd /c shutdown -s -t 0", 0, True End Sub Sub ClearDNSCache o.Run "cmd /c ipconfig /flushdns", 0, True End Sub
 
'Script by XpucT

Set o = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.Count = 0 Then
    WScript.Quit
End If

If WScript.Arguments(0) = "-refresh" Then
    Call Refresh
ElseIf WScript.Arguments(0) = "-reboot" Then
    Call Reboot
ElseIf WScript.Arguments(0) = "-shutdown" Then
    Call Shutdown
ElseIf WScript.Arguments(0) = "-cleardns" Then
    Call ClearDNSCache
End If

Sub Refresh
    o.Run "ie4uinit.exe -show"
    o.Run "ie4uinit.exe -ClearIconCache"
    
    WScript.Sleep 1000
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    local = o.ExpandEnvironmentStrings("%LocalAppData%")   
    path = "\Microsoft\Internet Explorer\"
    If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then
        fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log"
    End If
    If fso.FileExists(local & path & "ie4uinit-show.log") Then
        fso.DeleteFile local & path & "ie4uinit-show.log"
    End If
    If fso.FileExists(local & path & "brndlog.txt") Then
        fso.DeleteFile local & path & "brndlog.txt"
    End If
    If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then
        fso.DeleteFile local & path & "ie4uinit-UserConfig.log"
    End If
End Sub

Sub Reboot
    o.Run "cmd /c shutdown -r -f -t 0", 0, True
End Sub

Sub Shutdown
    o.Run "cmd /c shutdown -s -t 0", 0, True
End Sub

Sub ClearDNSCache
    o.Run "cmd /c ipconfig /flushdns", 0, True
End Sub

Доброе утро.Возможно я Вам надоел можете написать что бы показывало окно?С батниками получается с vbs ну ни как.
За ранее спасибо.

Голосуйте - палец вниз.0Голосуйте - палец вверх.0
Mikhail@satirov
13 439 Сообщений
Высшая репутация
Pro
#14 · 30.03.2024, 06:17

Roman, Привет.
Добавил строку Скопированоo.Popup "Кэш сопоставителя DNS успешно очищен.", 1, "DNS Cache", vbInformation + vbOKOnly, "1" это сколько секунд будет окно висеть, либо вообще удали эту строку чтоб самим нажать "ок"

Скрипт

'Script by XpucT

Set o = WScript.CreateObject("WScript.Shell")

If WScript.Arguments.Count = 0 Then
    WScript.Quit
End If

If WScript.Arguments(0) = "-refresh" Then
    Call Refresh
ElseIf WScript.Arguments(0) = "-reboot" Then
    Call Reboot
ElseIf WScript.Arguments(0) = "-shutdown" Then
    Call Shutdown
ElseIf WScript.Arguments(0) = "-cleardns" Then
    Call ClearDNSCache
End If

Sub Refresh
    o.Run "ie4uinit.exe -show"
    o.Run "ie4uinit.exe -ClearIconCache"
    
    WScript.Sleep 1000
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    local = o.ExpandEnvironmentStrings("%LocalAppData%")   
    path = "\Microsoft\Internet Explorer\"
    If fso.FileExists(local & path & "ie4uinit-ClearIconCache.log") Then
        fso.DeleteFile local & path & "ie4uinit-ClearIconCache.log"
    End If
    If fso.FileExists(local & path & "ie4uinit-show.log") Then
        fso.DeleteFile local & path & "ie4uinit-show.log"
    End If
    If fso.FileExists(local & path & "brndlog.txt") Then
        fso.DeleteFile local & path & "brndlog.txt"
    End If
    If fso.FileExists(local & path & "ie4uinit-UserConfig.log") Then
        fso.DeleteFile local & path & "ie4uinit-UserConfig.log"
    End If
End Sub

Sub Reboot
    o.Run "cmd /c shutdown -r -f -t 0", 0, True
End Sub

Sub Shutdown
    o.Run "cmd /c shutdown -s -t 0", 0, True
End Sub

Sub ClearDNSCache
    o.Run "cmd /c ipconfig /flushdns", 0, True
    o.Popup "Кэш сопоставителя DNS успешно очищен.", 1, "DNS Cache", vbInformation + vbOKOnly
End Sub

Голосуйте - палец вниз.0Голосуйте - палец вверх.1
Лайкнул Roman
Roman
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн
Страница 1 из 4► 4