Hier ein Script welches Services inkl. deren abh\u00e4ngigkeiten neu startet.<\/p>\n
\r\n\r\n'***********************************************************************************************\r\n ' This program is Copyright (c) 2001 Microsoft Corporation.\r\n '\r\n ' All rights reserved.\r\n '\r\n ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF\r\n ' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO\r\n ' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND\/OR FITNESS FOR A\r\n ' PARTICULAR PURPOSE.\r\n '\r\n ' IN NO EVENT SHALL MICROSOFT AND\/OR ITS RESPECTIVE SUPPLIERS BE\r\n ' LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY\r\n ' DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,\r\n ' WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS\r\n ' ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE\r\n ' OF THIS CODE OR INFORMATION.\r\n\r\n ' Services restart script\r\n ' Maintains start \/ stop dependencies regardless of ISA installation type\r\n ' Date - 9\/7\/2001\r\n '***********************************************************************************************\r\n\r\n Option Explicit\r\n\r\n Dim objSWbemLocator, objSWbemServices, objServices, Associator, Rtn, BlnRtn, SvcName\r\n Dim outFile, fs, logfile, objEMail\r\n ' Logfile definitionen...\r\n set fs = createobject("Scripting.filesystemobject")\r\n set logfile = fs.opentextfile("D:\\Service.log", 8, true,0)\r\n\r\n SvcName = "PlugPlay"\r\n Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")\r\n Set objSWbemServices = objSWbemLocator.ConnectServer("", "root\\CIMV2","" ,"")\r\n Set objServices = objSWbemServices.Get("Win32_Service.Name=""" & SvcName & """")\r\n\r\n StopService(objServices)\r\n wscript.echo\r\n StartService(objServices)\r\n\r\n 'logfile.writeline "-- Automatic Service Stop and Start Task will start now [" & Date & "-" & Time & "] --"\r\n\r\n Function StopService(objService)\r\n StopDependentServices(objService.Name)\r\n Wscript.Sleep 5000\r\n wscript.echo "Stopping " & objService.Name\r\n Rtn = objService.StopService(objService.Name)\r\n If Rtn = 3 then StopDependentServices(objService.Name)\r\n ' Logfile wird geschrieben\r\n logfile.writeline "[" & Date & "-" & Time & "] Service " & objService.Name & " was Stopped"\r\n If Rtn <> 0 then\r\n Wscript.echo CheckReq(Rtn, objService.Name)\r\n Exit Function\r\n End if\r\n Wscript.Sleep 3000\r\n End Function\r\n\r\n Function StartService(objService)\r\n wscript.echo "Starting " & objService.Name\r\n Rtn = objService.StartService(objService.Name)\r\n logfile.writeline "[" & Date & "-" & Time & "] Service " & objService.Name & " was Started"\r\n If Rtn <> 0 then\r\n Wscript.echo CheckReq(Rtn, objService.Name)\r\n End if\r\n Wscript.Sleep 5000\r\n StartDependentServices(objService.Name)\r\n End Function\r\n\r\n Function StopDependentServices(strServiceName)\r\n logfile.writeline "[" & Date & "-" & Time & "] -!- Automatic Service Stop and Start Task will start now"\r\n For Each Associator In objSWbemServices.AssociatorsOf("Win32_Service.Name=""" & strServiceName & """", "Win32_DependentService",, "Dependent")\r\n If (Associator.StartMode = "Auto") and (Associator.State = "Running") then\r\n wscript.echo "Stopping dependent service: " & Associator.Name\r\n Rtn = Associator.StopService\r\n If Rtn = 3 then StopDependentServices(Associator.Name)\r\n logfile.writeline "[" & Date & "-" & Time & "] Dependent Service " & Associator.Name & " was Stopped"\r\n If Rtn <> 0 Then\r\n Wscript.echo CheckReq(Rtn, Associator.Name)\r\n Exit Function\r\n End If\r\n End If\r\n Next\r\n End Function\r\n\r\n Function StartDependentServices(strServiceName)\r\n For Each Associator In objSWbemServices.AssociatorsOf("Win32_Service.Name=""" & strServiceName & """", "Win32_DependentService",, "Dependent")\r\n If (Associator.StartMode = "Auto") and (Associator.State = "Stopped") then\r\n wscript.echo "Starting dependent service: " & Associator.Name\r\n Rtn = Associator.StartService\r\n logfile.writeline "[" & Date & "-" & Time & "] Dependent Service " & Associator.Name & " was Sarted"\r\n If Rtn <> 0 Then\r\n Wscript.echo CheckReq(Rtn, Associator.Name)\r\n Exit Function\r\n End If\r\n End If\r\n Next\r\n End Function\r\n\r\n Function CheckReq(Error, Service)\r\n\r\n Dim objSvc\r\n Select Case Error\r\n Case 0\r\n CheckReq = "The request was accepted."\r\n Case 1\r\n CheckReq = "The request is not supported."\r\n Case 2\r\n CheckReq = "The user did not have the necessary access."\r\n Case 3\r\n CheckReq = "The service cannot be stopped because other services that are running are dependent on it."\r\n Case 4\r\n CheckReq = "The requested control code is not valid, or it is unacceptable to the service."\r\n Case 5\r\n Set objSvc = objSWbemServices.Get("Win32_BaseService.Name=""" & Service & """")\r\n CheckReq = "The requested control code cannot be sent to the service because the service state is set to '" & objSvc.State & "'"\r\n Case 6\r\n CheckReq = "The service has not been started."\r\n Case 7\r\n CheckReq = "The service did not respond to the start request in a timely fashion."\r\n Case 8\r\n CheckReq = "Unknown failure when starting the service."\r\n Case 9\r\n CheckReq = "The directory path to the service executable file was not found."\r\n Case 10\r\n CheckReq = "The service is already running."\r\n Case 11\r\n CheckReq = "The database to add a new service is locked."\r\n Case 12\r\n CheckReq = "A dependency for which this service relies on has been removed from the system."\r\n Case 13\r\n CheckReq = "The service failed to find the service needed from a dependent service."\r\n Case 14\r\n CheckReq = "The service has been disabled from the system."\r\n Case 15\r\n CheckReq = "The service does not have the correct authentication to run on the system."\r\n Case 16\r\n CheckReq = "This service is being removed from the system."\r\n Case 17\r\n CheckReq = "There is no execution thread for the service."\r\n Case 18\r\n CheckReq = "There are circular dependencies when starting the service."\r\n Case 19\r\n CheckReq = "There is a service running under the same name."\r\n Case 20\r\n CheckReq = "There are invalid characters in the name of the service."\r\n Case 21\r\n CheckReq = "Invalid parameters have been passed to the service."\r\n Case 22\r\n CheckReq = "The account which this service is to run under is either invalid or lacks the permissions to run the service."\r\n Case 23\r\n CheckReq = "The service exists in the database of services available from the system."\r\n Case 24\r\n CheckReq = "The service is currently paused in the system."\r\n Case Else\r\n CheckReq = "I don't know WTF happened: RTN = " & Cstr(Error)\r\n End Select\r\n\r\n End Function\r\n<\/pre>\nRelated Images:<\/h3>","protected":false},"excerpt":{"rendered":"
Hier ein Script welches Services inkl. deren abh\u00e4ngigkeiten neu startet. ‚*********************************************************************************************** ‚ This program is Copyright (c) 2001 Microsoft Corporation. ‚ ‚ All rights reserved. ‚ ‚ THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ‚ ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO ‚ THE IMPLIED WARRANTIES OF […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[11],"tags":[66],"class_list":["post-1263","post","type-post","status-publish","format-standard","hentry","category-vbscript","tag-service-vbs"],"_links":{"self":[{"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=\/wp\/v2\/posts\/1263","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1263"}],"version-history":[{"count":6,"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=\/wp\/v2\/posts\/1263\/revisions"}],"predecessor-version":[{"id":1273,"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=\/wp\/v2\/posts\/1263\/revisions\/1273"}],"wp:attachment":[{"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1263"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1263"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.buarotti.ch\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1263"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}