Question: I clicked without thinking and it didn't appear to do anything but shut the windows. Looking at the code I'm too noob to work out what it does but I'm paranoid it's done something behind the scenes.

```
Option Explicit

'On Error Resume Next

Dim strComputer
Dim objWmiService
Dim colMonitoredProcesses
Dim objLatestProcess

Dim colProcesses
Dim objProcess

strComputer = "."

Set objWmiService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

Set colProcesses = objWmiService.ExecQuery _
    ("Select * From Win32_Process Where Name = 'explorer.exe'")

For Each objProcess In colProcesses
    objProcess.Terminate
Next

Set colMonitoredProcesses = objWmiService.ExecNotificationQuery _
    ("Select * From __InstanceCreationEvent " _
    & "Within 1 Where TargetInstance Isa 'Win32_Process' " _
    & "And (TargetInstance.Name = 'iexplore.exe' " _
    & "Or TargetInstance.Name = 'notepad.exe')")

Do 

    Set objLatestProcess = _
    colMonitoredProcesses.NextEvent.TargetInstance

    If LCase(objLatestProcess.Name) = "iexplore.exe" Then
        objLatestProcess.Terminate
    End If

Loop

```

Answer: 
Try `import { AtmService } from '../../services/atm.service';`

You need to go two folders back to get access to `services` folder.
your are trying to access service from component folder 

you can go two level back or you can drill down from app folder like this `app/services/atm.service`

```
import { AtmService } from 'app/services/atm.service';

```