festplatte.ch

Starten/Stoppen von Diensten mittels VBScript:

' ------ SCRIPT CONFIGURATION ------
strComputer = "" ' e.g. fs-rtp01 (use . for local system)
strSvcName = "" ' e.g. dnscache
' ------ END CONFIGURATION ---------
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set objService = objWMI.Get("Win32_Service.Name='" & strSvcName & "'")

intRC = objService.StopService
if intRC > 0 then
 WScript.Echo "Error stopping service: " & intRC
else
 WScript.Echo "Successfully stopped service"
end if

wscript.sleep 3000

intRC = objService.StartService
if intRC > 0 then
 WScript.Echo "Error starting service: " & intRC
else
 WScript.Echo "Successfully started service"
end if

Links: http://techtasks.com/code/viewbookcode/371

PostcardView Flash implementation

[ pcviewer id="GalleryID" width="500" height="500" ]

Link:http://shabushabu-webdesign.com/postcardviewer/

AutoView Flash implementation

[ autoviewer id="GalleryID" width="500" height="375" ]

Link:http://shabushabu-webdesign.com/autoviewer/

TiltView Flash implementation

[ tiltviewer id="GalleryID" width="500" height="500" ]

Link:
http://shabushabu-webdesign.com/tiltviewer/

SimpleView Flash implementation

[ simpleviewer id="GalleryID" width="500" height="600" ]

Link:
http://shabushabu-webdesign.com/simpleviewer/