Option Explicit
Dim objWMIService, objComputer, colComputer, strComputer, strTargetAccount, strAccount, oArgs, oAPI, oBag

strTargetAccount = "CONTOSO\svc-contoso-service"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem") 

For Each objComputer in colComputer

	IF objComputer.UserName = strTargetAccount Then
		StrAccount = 1
	End If
Next 

Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()

IF strAccount = 1 THEN
	Call oBag.AddValue("Status","OK")
ELSE
	Call oBag.AddValue("Status","BAD")
END IF
Call oAPI.Return(oBag)