Jump to content
Sign in to follow this  
Shemeneto

Neustart eines nicht angemeldeten PC´s über ein VBScript

Recommended Posts

Hallo,

 

ich habe folgendes Problem:

das Script das ich nutze, ist ein (Computer)-Startscript, das bei bestimmten Situationen den PC neustarten soll ohne das ein Benutzer angemeldet ist.

 

Leider funktioniert das nicht. Der Neustart funktioniert nur bei angemeldeten Benutzern oder wenn ich denn Neustart per Script von einem externen PC aus starte.

 

Hier die Funktion im Script die den Neustart einleitet:

 

'Funktion zum Neustart des PC´s
Private Sub Reboot()
'Const EWX_LOGOFF   = 0 
	'Const EWX_SHUTDOWN = 1 
	'Const EWX_REBOOT   = 2 
 	'Const EWX_FORCE    = 4 
	'Const EWX_POWEROFF = 8 

Dim strComputer, objWMIService, colW32OPS, value, os


strComputer = "."
On Error Resume Next
SystemUpdateLog("Computername = " & strComputer)
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate, authenticationLevel=Pkt, (Shutdown)}\\" & strComputer & "\root\cimv2")
Set colW32OPS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each value In colW32OPS
	value.Reboot
	'value.security_.privileges.add 18, True
	'Set os = value
Next

'os.win32shutdown 6

End Sub

 

Der auskommendierte Code ist mein Versuch mit dem Privileg "RemoteShutdown". Allerdings mit dem gleichen Ergebnis wie mit "Shutdown".

Share this post


Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Werbepartner:



×
×
  • Create New...