Error running script while inside syn.

my email is rshurer@hotmail.com

This is the script:

' osinfo.vbs by John Savill
strComputer = "."
Set objWMIService = GetObject("winmgmts:"
& "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
wscript.echo "Install Date: " &
objOperatingSystem.InstallDate
Wscript.Echo "Operating System: " &
objOperatingSystem.Caption
Wscript.Echo "Version: " &
objOperatingSystem.Version
Wscript.Echo "Checked Build: " &
objOperatingSystem.Debug
Wscript.Echo "Service Pack: " &
objOperatingSystem.ServicePackMajorVersion & "." &
objOperatingSystem.ServicePackMinorVersion
Next

When i press F8 to run it, i receive an error (see
attached file).
When i run the script in command line (cscript
<scriptname.vbs>) it runs ok.