VBS Błąd składni

Witam mam skrypt lecz nie mogę go uruchomić poniewaz są same błędy składni czy mógłby ktoś to poprawić??
Dim oFSO, sClient, oWindows, oLocator, oConnection, oSys
Dim sUser, sPassword
sUser = "kazik"
sPassword = "kazik"
set oFSO = CreateObject("Scripting.FileSystemObject")
sClient = "Kaizo0"
set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oConnection = oLocator.ConnectServer(sClient, _
"root\cimv2", sUser, sPassword)
set oWindows = oConnection.ExecQuery("Select " & _
"name From Win32_OperatingSystem")
for Each oSys in oWindows
oSys.Win32ShutDown(1)
Next

Zamiast programowania proponuję uprawianie ogródka albo szydełkowanie.