Dálkové vypnutí PC

[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

[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

[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 .

[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.

[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.

[Uziv00]

Zřejmě to nepůjde. Vlastnost windows. Stejně jako se bez hesla nedostaneš na vzálenou plochu.

[zeus]

Je treba upravit Místní zásady zabezpečení, pak to jde i bez hesla (vc. vzd. plochy).