strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_Service",,48)

For Each objItem in colItems

    If objItem.DisplayName = "IBM Network License Server" Then

     Wscript.Echo objItem.DisplayName

    End If               

Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_Service",,48)

For Each objItem in colItems

    If objItem.DisplayName = "IBM Central Registry License Server" Then

     Wscript.Echo objItem.DisplayName

    End If               

Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_Service",,48)

For Each objItem in colItems

    If objItem.DisplayName = "IBM Nodelock License Server" Then

     Wscript.Echo objItem.DisplayName

    End If               

Next