Я хочу понять почему это не работает на vbs скрипте

Здравствуйте я бы хотел узнать почему этот код не работает на vbs скрипте, при запуске говорится что на строке: 9 и символ: 25 ошибка: Предполагается наличие окончанния инструкции код: 800А

Я добавляю кавычки и как бы ошибка все равно есть, если не трудно можетеь сказать в чём проблема?

Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("test.txt")
Set ts = f.OpenAsTextStream(1)
Do While Not ts.AtEndOfStream
 var = ts.ReadAll
Set var = FSO.OpenTextFile("test.txt", 1)
Set oShell.run = CreateObject("WScript.Shell")
oShell.run "cmd.exe /c ""sc stop ""AarSvc_%var%""""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""AarSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""CaptureService_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""CaptureService_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""UnistoreSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""UnistoreSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""CDPUserSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""CDPUserSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""ConsentUxUserSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""ConsentUxUserSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""PrintWorkflowUserSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""PrintWorkflowUserSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""BluetoothUserService_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""BluetoothUserService_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""PimIndexMaintenanceSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""PimIndexMaintenanceSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""UserDataSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""UserDataSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""cbdhsvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""cbdhsvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""UdkUserSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""UdkUserSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""WpnUserService_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""WpnUserService_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""BcastDVRUserService_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""BcastDVRUserService_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""MessagingService_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""MessagingService_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""DevicesFlowUserSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""DevicesFlowUserSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""DevicePickerUserSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""DevicePickerUserSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""DeviceAssociationBrokerSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""DeviceAssociationBrokerSvc_%var%""" 0, false"
ooShell.run "cmd.exe /c ""sc stop ""CredentialEnrollmentManagerUserSvc_%var%""" 0, false"
oShell.run "cmd.exe /c ""sc delete ""CredentialEnrollmentManagerUserSvc_%var%""" 0, false"

Loop
ts.Close

Заранее спасибо.