Stránka 1 z 1
Dálkové vypnutí PC
Napsal: 15 lis 2013 21:26
od halogen
Dobrý den, potřeboval bych vypínat PC v síti. zkoušel jsem vše možné. Nakonec mi přislo nejlepší pomocí Psshutdown ale po spuštění příkazu
D:\PSTools>psshutdown \\xxx-PC -u xxx -s
Zeptá se mě to na heslo. žádné tam není dám enter . Píše že se připojuje k danému xxx Pc. a pak to vyhodí tuto hlášku:
if xxx-pc is already performing a shutdown operation you must abort it before issuing a different command
Děkuji za odpověd
Re: Dálkové vypnutí
Napsal: 15 lis 2013 21:40
od Uziv00
graficky např. program netscan - ten mě ještě nikdy nezklamal, nevýhoda je, že pc musí naskenovat.
dále můžeš použít skript vbs
Kód: Vybrat vše
'********************************************************
'* Script restartuje pracoviště *
'* !!! Používá metodu FORCE !!! *
'* *
'* Etienn@Script v. 1.0 *
'********************************************************
' Action = 1 => shutdown
' Action = 2 => restart
' Action = 0 => logoff
' Action = 8 => poweroff
' Force = Action + 4
Option Explicit
Dim prac
Dim user, pass, zprava, titl, i, tlacitko, Action
Dim objSWbemLocator, cSystem, oSystem, objSWbemServices
'vytvoření objektu pro práci s WMI
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Action = 5
prac = "pocitac" 'nebo IP adresa
user = Inputbox("Zadej jméno", "Výzva")
pass = Inputbox("Zadej heslo", "Výzva")
On Error Resume Next
zprava = "Opravdu chcete restartovat " & prac & "?"
titl = "Upozornění!"
tlacitko = MsgBox (zprava, vbQuestion + vbYesNo + vbDefaultButton2, titl)
If tlacitko = vbYes Then
'vytvoření a nastavení objektu pro pracoviště
Set objSWbemServices = objSWbemLocator.ConnectServer _
(prac(i), "root\cimv2", user, pass)
objSWbemServices.Security_.ImpersonationLevel = 3
'vytvoření kolekce objektu třídy Win32
Set cSystem = objSWbemServices.ExecQuery("select * from Win32_OperatingSystem"_
& " where Primary=true")
For Each oSystem In cSystem
oSystem.Win32Shutdown(Action)
Next
If Err.Number <> 0 Then WScript.Echo "Nepodařilo se vypnout pracoviště" & prac
End If
Set objSWbemLocator = Nothing
text zkopíruj do notepadu a ulož s příponou vbs. Po poklepání se spustí skript.
Nebo:
Kód: Vybrat vše
psexec \\IP.x.x.x -u user -p heslo shutdown -s -t 00 + případně parametr -f
Re: Dálkové vypnutí
Napsal: 15 lis 2013 22:03
od halogen
Ten skript se načte zadám vše ale nic se nestane. u té druhé varianty Zdám probíha připojování ale napíše špatné Už. jm nebo heslo .
Re: Dálkové vypnutí
Napsal: 15 lis 2013 22:35
od Uziv00
dej apostrof (Alt+39) ' před On Error Resume Next. Dej vědět jakou chybu to napíše.
A zkus ten netscan
http://www.softperfect.com/products/networkscanner/ Klidně můžeš do skenování zadat jen jednu IP adresu - tedy adresu toho PC, které chceš vypnout. Potom na něj pravoklikni a vyber remote shutdown. Dole nastav jméné a heslo účtu ke vzdálenému PC.
Re: Dálkové vypnutí
Napsal: 16 lis 2013 13:33
od halogen
Takže nakonec se mi to povedlo. Hodně pomohl ten Netscan. Problém byl že ten PC který sem chtěl vypnout neměl heslo ale když jsem mu heslo přidal a do příkazu dopsal heslo tak už to šlo . Z toho vyplývá otázka jak mam zapsat ten příkaz když chci vypnout PC bez hesla. Zkoušel parametr -p bez ničeho to nejde i bez parametru -p se mě to zeptá na heslo nic nezdám a stejně nejde.
Re: Dálkové vypnutí PC
Napsal: 17 lis 2013 23:21
od Uziv00
Zřejmě to nepůjde. Vlastnost windows. Stejně jako se bez hesla nedostaneš na vzálenou plochu.
Re: Dálkové vypnutí PC
Napsal: 18 lis 2013 14:26
od zeus
Je treba upravit Místní zásady zabezpečení, pak to jde i bez hesla (vc. vzd. plochy).